Excel VBA – Range.Copy транспонированная паста

Я пытаюсь сделать что-то очень простое, но, похоже, я застрял. Я следую меню справки для PasteSpecial но я не могу заставить свой код работать без ошибок.

Я хочу принять Worksheets("Sheet1").Range("A1","A5") и вставить транспонирование в Worksheets("Sheet2").Range("A1","E1") .

Какой самый простой способ выполнить это?

     Worksheets("Sheet1").Range("A1:A5").Copy Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True 
    Давайте будем гением компьютера.