Select A Range Dynamically Based On Count Of Values

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.

Code:

---

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!

Try this

Code:

---


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

---