最終行のコピーペーストのマクロ作成をご指導ください。

質問

最終行のコピーペーストのマクロ作成をご指導ください。
１つのブックに６０シートあります。D~Sまでの行をセルの結合をして文字入力がしてあります。
又、どんどんテキスト行が追加されてゆきます。毎回、行の最終行をコピーして
指定セルB21：s23（セル結合してあり）に貼り付けたい（３シート目～60シート目全てのシート）のですが、上手く行きません。
マクロ素人ですが、思考錯誤してみましたが、駄目です。ご指導下さい。
出来れば、1から教えてください。御願いします。

Dim n As Integer
Dim LastR1 As Long, LastR2 As Long
For n = 3 To 60 'データシートの数だけループ
LastR1 = Sheets(n).Range("B22") '貼付先取得
LastR2 = Sheets(n).Range("D65536").End(xlUp).Row '貼付元シートの最終行取得
With Sheets(n) '貼付元データをコピー(最終行)
ここがおかしい？ .Range(.Cells(22, 4), .Cells(LastR2, 60)).Copy
End With
ActiveSheet.Paste Destination:=Sheets(n).Cells(LastR1) '貼付
Next

End Sub

回答No.1

FEX2053 · ベストアンサー

そもそも論として「セル結合をしてあるシートでは、マクロは上手く動かない事が多い」です。まずはセルの結合を全部解除して下さい。処理はそれからです。

それと、わざわざ行数を数値で取得して範囲を選択し直さなくても、単純にそのままコピーすれば良いだけなんじゃないかと。チェックはしてませんが、発想はこういう感じで行けるはずです。

Dim n As Integer

For n = 3 To 60 'データシートの数だけループ
Sheets(n).Selelct　'シートを選ぶ
Range("D65536").End(xlUp).Resize(1,16).copy　'最終行の必要な範囲をコピー
Range("B22").Select　'貼り付け先を選択して貼り付け
ActiveSheet.Paste
Next

End Sub

お礼

早速のご指導有難うございました。セル結合解除しないと駄目と言うのは、困難ですが、
一度トライしてみましたが、Sheets(n).Selelct　'シートを選ぶ
が先ず引っかかり、エラーになりました。トホホ。。。本当に素人なので、エラー回避方法を又ご指導下さい。　あと、RESIZE（,)の1,16　は（1行,P)の意味でしょうか？　お教え下さい。宜しくお願します。

補足

シートを選ぶを削除して、RESIZEも設定しました。（1行目,列セル）←で宜しいんですね？
出来ました！！　有難うございました。こんなに簡単に解決できて大変嬉しいです！！