Set variable for loop in VBA based on # of rows with data

[J88L]

I'm creating a macro to add data to the end of a list. When imported, the data has three header rows. The first row of headers is found using:

Cells.Find(What:="Date:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

From there,

Activecell.Offset(4, 0).Select

...takes you to the first row of actual data. I now want the macro to capture how many rows of data (including that row) exist. Call it a pre-created variable named RowsWithData

How do I do that?

 

[Nimrod]

Public Sub Demo()


    Set FirstHdr = Cells.Find(What:="Date:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False)
    
    
    If FirstHdr Is Nothing Then
        MsgBox ("no Date header found ")
    Else
        FirstDataRow = FirstHdr.Row + 4
        DateColumn = FirstHdr.Column
        
        LastDataRow = Cells(65536, DateColumn).End(xlUp).Row
        
        ln1 = "Data Row " & FirstDataRow & vbNewLine
        ln2 = "Date Column " & DateColumn & vbNewLine
        ln3 = "Last Data Row " & LastDataRow & vbNewLine
        
        msg = ln1 & ln2 & ln3
        MsgBox (msg)
    End If
End Sub