Quiero que mi macro realice el borrado que me borre todas las líneas con el contenido del ImputBox

Hola Expertos un saludo para todos.
Mi pregunta en principio es para Elsamatilde ya que la macro sobre la cual necesito ayuda es suya, pero si no es posible por las circunstancias que sean pues tal vez alguno de ustedes pueda ayudarme lo cual seria muy de agradecer a cualquiera de todos los expertos, paso al problema:
Tengo esta macro(de Elsamatilde que yo e ajustado a mis necesidades, por tanto no es la original) pero va de maravilla, pero el problema es que necesito que cuando me realice el borrado este sea múltiple, es decir que me borre todas las lineas de la hoja cuyo contenido sea el solicitado en el InputBox pero no la linea completa sino solo las celdas que expongo ya que en las demás celdas hay fórmulas y esas deben quedar intactas(pues esas se borran solas al faltar las celdas borradas con la macro), esta es la macro que tengo:
Sub busco_y_elimino()
'desarrollada por Elsamatilde
Dim n As Range
palabra_a_buscar = InputBox("Ingresar dato de estado de pedido a buscar", "Buscador")
If palabra_a_buscar = "" Then Exit Sub
Set n = Worksheets("Pedidos").Cells.Find(what:=palabra_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
Else
MsgBox "Texto encontrado: " & UCase(palabra_a_buscar) & "."
fila = n.Row
sino = MsgBox("¿Deseas eliminar todas las entradas del mismo nombre?", vbYesNo, "Confirmar")
If sino = vbYes Then n.Offset(0, -3) = "" 'n.EntireRow.ClearContents
n.Offset(0, -2) = ""
n.Offset(0, -1) = ""
n.Offset(0, 0) = ""
n.Offset(0, 2) = ""
n.Offset(0, 3) = ""
n.Offset(0, 7) = ""
'n.Value = ""
End If
End Sub
Agradezco de antemano su ayuda ya que no consigo sacar una macro que me solucione el problema ni probando con la grabadora de macros, pues estoy verde en esto de las macros.