Porque vc simplesmente não filtra?

Para fazer o que você quer, somente com VBA.

Você pode rodar o código abaixo na planilha desejada:

Sub apagar_ERROS()
    Range("D7").Activate
    Do Until ActiveCell.Text = ""
        If WorksheetFunction.IsError(ActiveCell) Then
            ActiveCell.Rows("1:1").EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Activate
        End If
    Loop
End Sub