Next blank row moving down through a data set

[Westbury]

I have a table of data which is broken up by a number of blank rows at irregular spacing. I need to find the row number of the next blank row after the last occurance of a string in col A---which can be somewhere in the middle of the data table. I've got the row number of the last occurence of FRED, as an example, below but am stuck finding the next blank row. FRED is effectively a heading with rows of other data below his name followed by a blank row.

Sub find_occurance_of_string()


    Dim FirstRow As Long
    Dim LastRow As Long
    Dim erow As Long
    
With Sheets("DATA")
    FirstRowPFW = Range("A:A").Find(what:="FRED", after:=Range("A1")).Row
    LastRowPFW = Range("A:A").Find(what:="FRED", after:=Range("A1"), searchdirection:=xlPrevious).Row
       
End With


    MsgBox FirstRow & vbCrLf & LastRow
    
    'empty row after last row containing  FRED in col A
    
   erow = Sheets("DATA").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
   
   MsgBox erow   
      
End Sub

Would be grateful for a steer in the right direction.
thanks
Geoff

 

[Fluff]

How about

Sub find_occurance_of_string()
    Dim FirstRow As Range
    Dim erow As Long
    
    With Sheets("DATA")
        Set FirstRow = .Range("A:A").Find("FRED", , , xlPart, , , False, , False)
        erow = FirstRow.End(xlDown).Offset(1).Row
    End With

    MsgBox FirstRow.Row & vbCrLf & erow
End Sub

 

[Westbury]

My description wasn't totally accurate----sorry!. There are several instances of "FRED"; I need to find the last one and then the subsequent blank row.

 

[Fluff]

Ok, how about

Sub find_occurance_of_string()
    Dim LastRow As Range
    Dim erow As Long
    
    With Sheets("DATA")
        Set LastRow = .Range("A:A").Find("FRED", , , xlPart, xlByRows, xlPrevious, False, , False)
        erow = LastRow.End(xlDown).Offset(1).Row
    End With

    MsgBox LastRow.Row & vbCrLf & erow
End Sub

 

[Westbury]

That's it!

Thank you.

 

[Fluff]

You're welcome & thanks for the feedback