指定したセルへの切り貼りが上手くいかない

Question

![

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
あるシートで作成したリストを、同じブックの別シートに貼り付けたいです。
シートでは2行61行、62行121行の60行のセルをページという区切りにして、別シートに写す予定です。
別シートでは間隔を開けて5行64行,69行128行と60行のセルと4行の見出しセルで1ページとして扱い、
インプットボックスで指定した箇所にページを写すマクロを作っています。

発生している問題・エラーメッセージ

エラーメッセージは出ていないのですが、正しく動きません。
1ページ目にセルを写せてはいますが、2ページ目にセルを写すことができません。
またどちらも写す作業に時間がかかっており、写した後は別のセル範囲を選択しています。

詳しい方、どなたかご教授いただければ幸いです。

該当のソースコード

Sub コピー()

    Dim i As Long
    Dim n As String, k As String, p As String
    Dim ws1 As Excel.Worksheet, ws2 As Excel.Worksheet
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
   
    n = InputBox(Prompt:="これを何ページ目に作成するか入力してください", Title:="ページ場所の入力")
    If StrPtr(n) = 0 Then
        MsgBox "入力がキャンセルされました。", vbExclamation       
    ElseIf n = "" Then
        MsgBox "値が未入力です。", vbExclamation
        
    Else
        k = InputBox(Prompt:="何ページ作成するか入力してください", Title:="ページ数の入力")
        If StrPtr(k) = 0 Then
            MsgBox "入力がキャンセルされました。", vbExclamation
        
        ElseIf k = "" Then
            MsgBox "値が未入力です。", vbExclamation
        
        Else
            For i = n To n + k - 1
                ws1.Range("A" & 2 + ((i - 1) * 60) & ":" & "O" & 1 + (60 * i)).Copy
                ws2.Range("A" & 64 * (i - 1) + 5 & ":" & "O" & (64 * i)).PasteSpecial
                Application.CutCopyMode = False
            Next i
        End If
    End If
End Sub

補足情報（FW/ツールのバージョンなど）

Excel2013で作っています。

Answer 1

自分のソースコードだとws2側のセル指定範囲が大きすぎてズレていたようです。
ご迷惑をおかけしました。

        For i = 1 To k
            ws1.Range("A" & 2 + ((i - 1) * 60) & ":" & "O" & 1 + (60 * i)).Copy
            ws2.Range("A" & 64 * (n + i - 2) + 5 & ":" & "O" & (64 * (n + i - 1))).PasteSpecial
            Application.CutCopyMode = False
        Next i

Answer 2

こちらで、実行してみましたが、正常に動作します。
１．sheet1のセルは結合セルですが、全ての行で、同じ結合セルになってますか。
２．sheet2も同様に４行目以降は、全ての行で、同じ結合セルになってますか。又それは、sheet1と同じ形の
結合セルになっていますか。
上記の２点の何れかが正しくないように思われます。