Resize

Sub tess()

Range("B3:C3").Select
Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count).Select

End Sub