シート1のC列の最終行をコピーして同じ行に値貼り付けしたい
シート1のC列の最終行を取得して
その行を丸々値貼り付けするマクロを作りたいと思います。
シート3のB18の値をシート1のC列の最終行の1つ下のセルに値貼り付け
すると、その行のA、B列に日付が入力される関数が入っています。（下まで）
関数が入ったままだと、うまくいかない時があるので最終行をコピーして値貼り付けしたいのですが、マクロの作り方を教えてください。
シート1の最終行に貼り付け
Sheets("Sheet3").Select
Range("B18").Select
Selection.Copy
Sheets("Sheet1").Select
Range("C65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
最終行をコピーして値貼り付け
Dim 最終行 As Integer
最終行 = Range("C65536").End(xlUp).Row
Range("A6:C" & 最終行).Select
Selection.Copy
Sheets("Sheet1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
このマクロだと、A6からC列の最終行まで全てコピーされてしまうので、C列の最終行のAからC列まで1行だけコピーできないでしょうか？
お礼
ご丁寧にありがとうございました。