Private Sub CommandButton59_Click()
    Dim objShell As Object
    Dim command As String
    Dim result As String
    Set objShell = CreateObject("WScript.Shell")
    command = "powershell -Command ""Get-ADComputer -Filter 'description -like ""*123*""' -Properties * | Select-Object Name, Description, PhysicalDeliveryOfficeName"""
    result = objShell.Exec(command).StdOut.ReadAll()
End Sub

Range("A1:E1").Copy: Range("A5").PasteSpecial Paste:=xlPasteAll, Transpose:=True

Sub HorizontalSpiegeln()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim ws As Worksheet
    Set ws = Worksheets("buch 1")
    
    ws.Range("A1:T20").Value = Application.Transpose(ws.Range("U1:AN20").Value)
    ws.Range("U1:AN20").Value = Application.Transpose(ws.Range("A1:T20").Value)
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Sub VertikalSpiegeln()

    Dim dtStart As String, dtEnd As String
    Dim dateParts As Variant
    dateParts = Split(Cells(1, 14), ".")
    dtEnd = "#" & CInt(dateParts(1)) & "/" & CInt(dateParts(0)) & "/" & dateParts(2) & "#"
    For i = 2 To 14
        dateParts = Split(Cells(1, i), ".")
        dtStart = "#" & CInt(dateParts(1)) & "/" & CInt(dateParts(0)) & "/" & dateParts(2) & "#"
        MsgBox dtStart, 64, "Перебор дат в нужном формате"
        'Ваша часть кода с подстановкой дат в нужном формате
        'Set tsv = asn.TimeScaleData(StartDate:=dtStart, EndDate:=dtEnd, Type:=pjAssignmentTimescaledActualWork, TimeScaleUnit:=pjTimescaleDays)
    Next i

With wb.Worksheets("Получено")
    .Cells(1, 1).PasteSpecial xlPasteValues 'вставляем значения
    .Cells(1, 1).PasteSpecial xlPasteFormats 'вставляем форматы
    .Cells(1, 1).PasteSpecial xlPasteColumnWidths 'вставляем ширину строк
End With