【Excel_VBA】見出し行と合計行・合計列を除いて選択する（140）

Sub vba140()
    Range("B4").CurrentRegion.Select
    Selection.Offset(RowOffset:=1).Select
    Selection.Resize(RowSize:=Selection.Rows.Count - 2, _
        ColumnSize:=Selection.Columns.Count - 1).Select
End Sub