Excel VBA - Range.Copy транспонировать пасту

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

Я хочу взять Рабочие листы ("Лист1"). Диапазон ("A1", "A5") и вставить транспонирование в Рабочие листы ("Лист2 ") .Range (" A1 "," E1 ") .

Какой самый простой способ сделать это?