copiar datos por medio de macros

hola, Manuel !

... en la columna productos puede aparecer Hon u Hg (son productos)
... al... encontrar cualquiera de estos dos productos debo insertar una fila en blanco
... ademas de insertar la fila, copie desde... donde esta el producto Hg u Hon... columnas ABCEyF [...]

he incluido la columna 'D' al momento de copiar a la fila insertada :))
[modifica donde mis supuestos esten equivocados] :-(
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Busca_e_InsertaFila()
Application.ScreenUpdating = False
Dim Busca, Col As String, Celda As Range, Inicio As String, Sig As Byte
Busca = Array("Hon", "Hg") ' <= pon aqui las palabras que se buscan '
Col = "d" ' <= pon aqui la letra de la columna donde se buscara '
For Sig = LBound(Busca) To UBound(Busca)
If Application.CountIf(Columns(Col), Busca(Sig)) > 0 Then
With Columns(Col)
Set Celda = .Find(What:=Busca(Sig), SearchDirection:=xlNext)
Inicio = Celda.Address
Do
Celda.EntireRow.Insert
Celda.Offset(, -3).Resize(, 6).Copy Celda.Offset(-1, -3)
Set Celda = .FindNext(Celda)
Loop While Not Celda Is Nothing And Celda.Address <> Inicio
End With
End If
Next
Set Celda = Nothing
End Sub