こういうことでしょうか？
変数iを追加して、iと64から70まで変化させてC6、C7にコピーして印刷を繰り返します。
Sub test()
Dim wb_moto As Workbook
Dim wb_saki As Workbook
Dim i As Long
Set wb_moto = Workbooks.Open(\u0026quot;東日本.xlsm\u0026quot;)
Set wb_saki = Workbooks.Open(\u0026quot;西日本.xlsx\u0026quot;)
For i = 64 To 70
wb_moto.Worksheets(1).Range(\u0026quot;C\u0026quot; \u0026amp; i).Copy
wb_saki.Worksheets(1).Range(\u0026quot;C6\u0026quot;).PasteSpecial Paste:=xlPasteAll
wb_moto.Worksheets(1).Range(\u0026quot;A\u0026quot; \u0026amp; i).Copy
wb_saki.Worksheets(1).Range(\u0026quot;C7\u0026quot;).PasteSpecial Paste:=xlPasteAll
wb.Worksheets(1).PrintOut
Next
End Sub
