Macro to jump to next blank with a criteria

Yes you could get rid of the question.

Sub ActivateNextBlank()
Dim rngOfInterest As Range, rngOfBlanks As Range, cell As Range
Dim LastRow As Long
Dim blnFound As Boolean
Static rngLastFoundBlank As Range


LastRow = Cells(Rows.Count, "D").End(xlUp).Row

If rngLastFoundBlank Is Nothing Then
    Set rngOfInterest = Range("BP9:BP" & LastRow)
Else
    Set rngOfInterest = Range("BP" & rngLastFoundBlank.Row + 1 & ":BP" & LastRow)
End If

On Error Resume Next
If rngOfInterest.Cells.Count = 1 Then
    If rngOfInterest.Value = "" Then
        Set rngOfBlanks = rngOfInterest
    Else
        Set rngOfBlanks = Nothing
    End If
Else
    Set rngOfBlanks = rngOfInterest.SpecialCells(xlCellTypeBlanks)
End If
On Error GoTo 0

If Not rngOfBlanks Is Nothing Then
    For Each cell In rngOfBlanks.Cells
        If cell.Offset(0, -1).Value <> "" And IsNumeric(cell.Offset(0, -1).Value) Then
            cell.Activate
            Set rngLastFoundBlank = cell
            blnFound = True
            Exit For
        End If
    Next
    If Not blnFound Then
        Set rngLastFoundBlank = Nothing
        MsgBox ("No more recon")
    End If
Else
    MsgBox "No blanks"
End If
End Sub