環境…VBE
Sheet1の１行目〜５行目のセルをそのままSheet2に出力するコードを作ってみたのだけど、

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim k, t, As Integer
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")

t = sh1.Range("A65536").End(xlToLeft).Column

For k = 1 To 5
sh2.Cells(k, t) = sh1.Cells(1, t)
t = t + 1
k = k + 1
Next k

でやってみたのだが、１行しか表示されない・・・
どっか間違っているんかな？