Try this

Code:
    Dim Nmbr As Integer
    Range("R1") = WorksheetFunction.CountA(Range("S:S"))
    Nmbr = Range("R1").Value
    Range("R2").Resize(Nmbr, 6).Select