Looping Find Function

Hi,

I am looking for a way to turn my current coding into a loop

Sheets("Actual Schedule").Select
Range("A1").Select
i = 1
h = 2
  'strr = ""
  'lastrow = Cells(Rows.Count, "B").End(xlUp).Row
  'findit = Range("F:F").Find(What:="BOFF", LookAt:=xlPart, After:=Range("" & Cells(Rows.Count, "F").End(xlUp).Row))
    
 
    Set findit = Cells.Find(What:="boff", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
    firstadd = findit.Address
    b = findit.Row
  Range(Cells(b, 5), Cells(b, 5)).Copy Destination:=Sheets(5).Cells(h, 1)
  h = h + 1

I am not exactly sure how to loop it to find the next value with "Boff" and find the corresponding cell to the left to it.

I'll keep looking for solutions in the mean time.

Thanks