こんなんどないや
Sub ta2()
Dim St As Range
Set St = Range("C6").CurrentRegion
Range(St.Cells(2, 2), St.Cells(St.Count)).Select
End Sub