Ayuda Elsa Matilde

Hola, en pasados días me ayudaste mucho con esta rutina, solo que tengo un pequeño problema, cuando selecciono el rango (C4:C20) y lo borro, se produce el siguiente error: error 13 en tiempo de ejecución, no coinciden los tipos, tal vez este haciendo algo mal pero... Ojala puedas ayudarme, de antemano mil gracias
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controla lo ingresado en rango C4:C20
If Intersect(Target, Range("C4:C20")) Is Nothing Then Exit Sub
With Worksheets("Hoja2")
If Application.CountIf(.Range("a:a"), Target) = 0 Then Exit Sub
With .Cells.Find(Target)
Range("D" & Target.Row) = .Offset(, 1)
Range("E" & Target.Row) = .Offset(, 2)
Range("F" & Target.Row) = .Offset(, 3)
End With
End With
End Sub