Return Row Number of First non blank cell using Subtotaling RowLevels:=2

[jim may]

In my Table Row 1 comprises my Header Info. Once I run the Subtotal routine and then select the RowLevels:=2 (Manually), how can I (using VBA/code) determine the EXCEL ROW NUMBER of the First non-blank record. I'm at a loss after googling for Over and hour. Can anyone assist? Thanks in Advance.. Jim

 

[dssJones]

Return Row Number of First non blank cell
We set up a range variable with the name lookAt

Dim lookAt as Range

To check the value of lookAt, we simply query its Value attribute

If lookAt.Value <> vbNullString then MsgBox = lookAt.row

The interesting part is telling VBA where on the spreadsheet to look
If we are searching a range of cells like A1:C3 we could do something like this

Dim lookIN as Range
Set lookIN = Range(Cells(1, 1), Cells(3, 3))
'Then we iterate Look IN
For each lookAt in lookIN
    if lookAt.value <> vbNullString then MsgBox = lookAt.row
Next lookAt

That should get you started

 

[HackSlash]

You can also use the built in function: End(xlDown).Row

Just change the Range below to match the beginning cell and it will jump down to the next populated cell. You can to this in any direction Up, Down, Left, Right

NextRowDown = Range("A1").End(xlDown).Row

 

[jim may]

Thanks guys... I got it going... Jim