Macro for deleting a row with specific criteria in a cell

Hello,

I've got a spreadsheet with many rows and columns, and I'd like to delete specific rows based on criteria I pick. For example, if my criteria is in column FG, and the criteria is the number 1, delete the row. I've got the following macro in VBE, but I have to run it multiple times for it to delete all the appropriate rows. Can someone help me debug it? Thanks.

Sub DeleteRows()

Dim MyCol As String
Dim MyVal As Variant
Dim i As Integer

MyCol = InputBox("Column to evaluate?", "Column Search", "FG")
MyVal = InputBox("Value to look for", "search value", 1)
For i = 1 To Range(MyCol & "65536").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("A" & i & ":FZ" & i), MyVal) > 0 Then
Range("A" & i).EntireRow.Delete
End If
Next i

End Sub