Sub コピーして最終行まで貼り付ける()

    最終行 = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行=4
    
    Range("C2").Copy 'C2をコピー
    
    Range("C2:C" & 最終行).PasteSpecial
   'Range("C2:C4").PasteSpecial と同じ動作

End Sub