Select A Range Dynamically Based On Count Of Values

[getlucky]

Hi,

I am trying to select a code using variables. Since the range is dynamic, I am using a counta function to determine the no of rows. Below is the code I have used, but its not correct.

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

Thanks for your help!