現在の選択範囲よりも１行増やし２列少なく

Sub ExStatement()
Selection.Resize(RowSize:=Selection.Rows.Count + 1, _
ColumnSize:=Selection.Columns.Count – 2).Select
End Sub