insertar filas y busqueda, por medio de macros

oye manuel perdon por invadir tu pregunta solo que no se como se ingresa
un mensaje y tome tu mensaje para ver si podeis explicarme como posteo un
mensaje aqui en excel. muchas gracias y perdon

Hola Manuel

mira a ver la siguiente macro
inserta la fila encima del valor buscado

Sub insertarfilas()
Cells(1, 1).Select 'posiciona la celda activa en la columna de
busqueda
Do Until Selection = ""
If Selection = "Hon" Then
Selection.Rows.Insert 'inserta fila
Selection.Offset(1, 0).Select
End If
Selection.Offset(1, 0).Select
Loop
End Sub

si quieres que inserte la fila debajo cambia de orden las ordenes dentro del
'if'

cualquier cosa comentas

un saludo