Leider habe ich derzeit kein MS Excel installiert sondern OpenOffice
sehr gut (;-).
Menü Einfügen -> Inhalte einfügen -> Transponieren.
Wenn Du den Transponieren-Befehl per Makro aufzeichnest, müsstest Du den Code im VBA finden und wiederverwenden können.
Markieren, Kontextmenü kopieren, Klicken auf Zelle, Inhalte Einfügen, Häkchen bei "Transponieren" setzen bringt als VBA-Code:
Application.CutCopyMode = False
Selection.Copy
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True