Excel VBA – Range.Copy transponer pasta

Estoy intentando algo muy simple, pero parece que estoy atascado. Estoy siguiendo el menú de ayuda para PasteSpecial pero parece que no puedo hacer que mi código funcione sin un error.

Quiero tomar Worksheets("Sheet1").Range("A1","A5") y pegar la transposición a Worksheets("Sheet2").Range("A1","E1") de Worksheets("Sheet2").Range("A1","E1") .

¿Cuál es la forma más simple de lograr esto?

 Worksheets("Sheet1").Range("A1:A5").Copy Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True