Error 13 en macro

HOLA TENGO LA SIGUIENTE MACRO, QUE AFORTUNADAMENTE ENCONTRÉ EN SU FORO

Private Sub Worksheet_Change(ByVal Target As Range)
'esta rutina controla contenidos en columnas específicas
'primero omitimos que se ejecute cuando se trata de cambios en las
'2 primeras filas, generalmente de títulos:
If Target.Row < 2 Then Exit Sub
If Target.Column = 1 Then
If Target.Value <> 0 Then Call resta
ElseIf Target.Column = 2 Then
If Target.Value <> 0 Then Call resta
End If
End Sub

EL PROBLEMA ES CUANDO SELECCIONO UN RANGO Y LO BORRO ME MANDA EL MENSAJE DE ERROR 13

Y EN DEPURAR ME MANDA CON AMARILLO ESTA PARTE

If Target.Value <> 0 Then