Private Sub CommandButton1_Click()
Range("A1:F11").Select
'Deduct one row from selection
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
'Get down one row with same selection of rows count
Selection.Offset(1, 0).Resize(Selection.Rows.Count).Select
'Deduct one column from selection
Selection.Offset(0, 1).Resize(Selection.Columns.Count - 1).Select
'Get down one column with same selection of columns count
Selection.Offset(0, 1).Resize(Selection.Columns.Count).Select
End Sub