Sub コピーして最終行まで貼付後メッセージを表示() 最終行 = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行=4 Range("C2").Copy 'C2をコピー Range("C2:C" & 最終行).PasteSpecial 'Range("C2:C4").PasteSpecial と同じ動作 MsgBox "貼付完了" End Sub