VBA 簡単にしたい

Question

【VBA】初心者です。
シート１にある例①のデータを
シート２のテンプレートに例②の形にしたいです。

実際は、26項目分、テンプレートに当てはめたいデータがあります。
データは300行分くらいあります。
最終的には、番号や住所などのセルは複数行、結合させることになります。（結合までいっきにできるとなおよいです。）

Set deta()
Dim torikomi1 As Range, template1 As Range
Dim torikomi2 As Range, template2 As Range
↑このようなかたちで、26個続きます。

Dim Z Az Long, R As Long

This Workbook.Sheets("シート１").Range("A1:ZZ1000").ClearContents

Set torikomi1=Worksheets("シート１").Cells(2,1)
Set torikomi2=Worksheets("シート１").Cells(2,2)
↑このようなかたちで、26個続きます。

Set template1 =Worksheets("シート２").Cells(3,1)
Set template2 =Worksheets("シート２").Cells(4,2)
↑このようなかたちで、26個続きます。

For Z = 0 To 2500 Set 2
template1.Offset(Z,0).Value = torikomi1.Offset(R,0).Value
template2.Offset(Z,0).Value = torikomi2.Offset(R,0).Value
↑このようなかたちで、26個続きます。
R=R+1
Next Z
End Sub

26項目分なので、開くのも閉じるのも時間がかかってしまいます。
ほかに、よい方法はありますでしょうか？
よろしくお願いします。

例①
1番号 名前 ふりがな 月 日 年 住所
2 13 佐藤 さとう 3 2 21 北海道
3 15 伊藤 いとう 5 12 20 青森
4
5

例②
1 番号 ふりがな 住所
2 名前
3 13 さとう 北海道
4 佐藤
5 15 いとう 青森
6 伊藤