Sub 二行目から最終行まで値を空白に削除する()
    
   '最終行を取得する
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row '=4
    
   '2行目から最終行まで値を空白にする
    Rows("2:" & 最終行) = ""
   'Rows("2:4"       ) = "" と同じこと

End Sub