Count non blank row from a particular row

[p9j123]

Hello,

Can someone assist me to identify a macro that will count non blank row from a particular row to the next blank row in the middle of the sheet. Sample below

[Column A]
[Row 1] Not Needed
[Row 2] Not Needed
[Row 3] Blank Cell
[Row 4] Needed
[Row 5] Needed
[Row 6] Needed
[Row 7] Needed
[Row 8] Blank Cell
[Row 9] Not Needed
[Rw 10] Not Needed
[Row 7] Not Needed

In the example above I want to count starting A4 to the next blank cell, so it should return 4.

Thanks in advance

 

[brian.wethington]

Will it always start counting at Row 4, or will the first blank row be random?

 

[brian.wethington]

Not sure it matters, but something like this work?

Sub Macro1()
Dim WB As Workbook, WS As Worksheet, Rng As Range

Set WB = Workbooks("Sample.xlsx") ' Set Sample.xlsx to name of workbook you are working in
Set WS = WB.Sheets(1) 'Set to Worksheet index you are working on
Set Rng = WS.Range("A1", Cells(Rows.Count, 1).End(xlUp))
Set CE1 = Rng.Find("", Range("A1"))
Set CE2 = Rng.Find("", CE1)
MsgBox (CE1.Address & " and " & CE2.Address & " are empty: return - " & CE2.Row - (CE1.Row + 1))

End Sub

 

[p9j123]

hi Brian,

It always starts at row 4