r=number of rows

[hyyfte]

How can I make r = number of rows non-empty rows

 

[Ron de Bruin]

Hi hyyfte

If you want to check one column try this

Sub test()
Dim r As Long
r = Application.WorksheetFunction.CountA(Sheets("Sheet1").Range("A:A"))
MsgBox r
End Sub