I currently have a macro that looks up a user inputted value/word on one sheet, "Instructions", and then searches for it on another, "Forecast", then deletes the column the value/word is found in and also deletes the columns to the right of it until the next populated cell. This works perfectly and I don't want to change it. What I would like to do is instead of just looking for one inputted value/word, I want it to search for all the words/values in the column until it reaches a cell with the value 0. I've tried a "Do Until" loop, but I can't seem to have it do what I want. Here is the code.
Sub SelectVariableRange()


Dim strFind As String
Dim rngFind As Range
Dim i As Integer


strFind = Sheets("Instructions").ActiveCell("H56").Value
Do Until ActiveCell.Value = 0


    Set rngFind = Sheets("Forecast").Cells.Find(What:=strFind, LookAt:=xlPart)
'check if value is found
    Do While Not rngFind Is Nothing
        i = 0
         Do While rngFind.Offset(0, i + 1) = ""
              i = i + 1
         Loop
     rngFind.Resize(1, i + 1).EntireColumn.Delete Shift:=xlShiftToLeft
     Set rngFind = Sheets("Forecast").Cells.Find(What:=strFind, LookAt:=xlPart)
    Loop

ActiveCell.Offset(1, 0).Select
Loop


End Sub
The parts I added in (shown above) to try to search for values/text until it reaches a cell with the value 0 are:
Do Until ActiveCell.Value = 0

ActiveCell.Offset(1, 0).Select
Loop
Everything else I have works perfectly, its just this part I need help with. (I'm trying to search starting at cell H56 and searching down the column sequentially- that's why I have the offset of (1,0). I want to search until there is a cell in column H that has a value of 0.)

Hopefully that isn't worded too poorly. Any help is greatly appreciated. Thank you!