Sub 一行目から最終行まで選択する()
    
   '最終行を取得する
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row ’6
    
   '1行目から最終行まで選択する
    Rows("1:" & 最終行).Select
   'Rows("1:6"       ).Select と同じこと

End Sub