[Excel] マクロで、行/列を入れ替えて貼り付ける

■同一シート内：
　Range("A1:A5").Copy
　Range("B1").PasteSpecial Transpose:=True

■別一シートへ：
　Sheets("Sheet1").Range("A1:A5").Copy
　Sheets("Sheet2").Range("B1").PasteSpecial Transpose:=True

■#Refエラー発生：値のみを貼り付ける
　Sheets("Sheet1").Range("A1:A5").Copy
　Sheets("Sheet2").Range("B1").PasteSpecial Paste:=xlPasteValues, Transpose:=True

■変数で指定されるセルに貼り付ける
  Range("A1:A5").Copy
  Sheets("Sheet2").Cells(1 + i , 1).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True