VBA: Count Not Null

[hamistasty]

I'd like code to count the cells with values in them of Column A, row 9 downward of tab "schedule" and make that count a variable.

Something like:

Sheets("Schedule").Range("A" & Rows.Count).End(xlUp).Row

But starting at row 9 not 1, and assigned to a variable.

 

[Scott Huish]

Dim x As Long
x = Application.WorksheetFunction.CountA(Sheets("Schedule").Range("A9:A" & Rows.Count))

 

[hamistasty]

Thanks!

Using x now, how can I copy a row and insert that row below the original in Sheets("Index') x times?

 

[Scott Huish]

Below the original what?