Foro Excel

Hola
gracias por la respuesta ha sido de mucha utilidad.Pero ahora se me crea otro problema y es que en el archivo que adjunto hay una serie de datos en la columna B. Tendria que borrarme los datos que ponen Linea motor, y el problema es que pueden aparecer mas de uno.y el otro problema es que busque cuando acaba linea puertas para yo poder insertar una fila . no se que condicion poner en la macro para que me borre unos datos y me busque cuando termina otros ya que soy novato.
gracias.

Hola!
Selecciona el rango B2:B14, ejecuta la sifuiente macro.

Option Explicit 'obliga declaración de variables
Option Compare Text 'comparación para texto a=A
Sub BorrarLienaMotor()
Dim Celda As Range, Fila As Long
For Each Celda In Selection
If InStr(1, Celda.Value, "Linea Motor") > 0 Then
Fila = Celda.Row
Range(Trim(Str(Fila)) & ":" & Trim(Str(Fila))).Select
Selection.Delete Shift:=xlUp
End If
Next Celda
Range("B1").Select
End Sub

Atte.