選択範囲を変更（行数列数）

Sub ExStatement()
Selection.Resize(RowSize:=5, ColumnSize:=2).Select
End Sub