>>150
そんな面倒くさい事しなくても

sh1.Rows("1:5").Copy Destination:=sh2.Range("A1")

という一文でコピーできるよ。