Para eliminar de una columna de datos el ultimo registro que tiene error #¡NUM!, he intentado con varias macros y nada

[Hola 

prueba con esto 

Sub eliminar()
    col = "A" ' columna evaluar
    u = Range(col & Rows.Count).End(xlUp).Row
    n = 0
    For i = u To 1 Step -1
        If IsError(Cells(i, col)) Then Rows(i).Delete
    Next i
    '
    MsgBox "fin"
End Sub

¡Gracias!