Find Word and Loop to End

I receive a report which contains 2 sets of data and I use this data to create an output file. The problem I have is that the output file I create uses the second set of data and the start point of this data varies from report to report. I have used the find function and offset to get the first line of where my output file starts, but now that I am there how do I use this cell value to loop through to the last cell in the column which contains data? I have provided an extract of the point I am stuck at. thanks for anyone who can help.

   Range("a1").Activate
    
  Cells.Find(What:="#Sheet", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Activate
          
'Final count of records
    
    For x = Selection To LastRow
     If (ActiveSheet.Cells(x, 1) <> "") Then
         Fc = Fc + 1
     End If
    Next x