Sub 二行目_タイトル行を除く_から最終行までコピーして別シートへ貼り付ける()
    
   '最終行を取得する
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row '=6
    
   '2行目から最終行までコピーする
    Rows("2:" & 最終行).Copy
   'Rows("2:6"        ).Copy と同じこと
    
   'Sheet2シートを選択する
    Worksheets("Sheet2").Select
   
   '2行目から最終行まで全貼り付けする
    Rows("2:" & 最終行).PasteSpecial
   'Rows("2:6"        ).PasteSpecial と同じこと
    
End Sub