Necesito ayuda con la rutina de buscar y reemplazar en un rango de Microsoft Excel

Hola a todos lo expertos... Tengo una inquietud.. Tengo la siguiente rutina
Para buscar y replazar en un rango...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
Application.ScreenUpdating = False
If Target.Address(False, False) = "A1" And Target.Value <> "" Then
rgo = "E1:E100"
crit1 = Target.Value
crit2 = "."
Application.DisplayAlerts = False
Set busco = ActiveSheet.Range(rgo).Find(crit1)
If Not (busco) Is Nothing Then
Range(rgo).Replace What:=crit1, Replacement:=crit2, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Selection.Insert Shift:=xlDown
ActiveCell.Value = Target.Value
End If
Set busco = Nothing
Range("A1") = ""
Range("A1").Select
End If
fin:
End Sub
Bueno lo que hace es buscar y reemplazar como le dije, lo que yo busco es que me borre el contenido de la fila próxima... Ej...
Si en E11 encuentra y modifica por el "." que borre lo que hay en F11... Y así con todas las considencias que encuentre... Se entiende... Si en E56 encuentra y modifa que a la ves borre lo que hay en F56...
Desde ya muchas gracias a los expertos de excel.
Ricardo