Borrar columna A de excel si no es "créditos sobre clientes"

No se condice el título con el contenido de la consulta, así que veamos si comprendí:

Recorrer la col A y si encuentra un texto que se inicia con 'créditos...' lo copie... ¿adónde? Imaginaré que se copia LA CELDA en OTRA HOJA, luego lo ajustas. Lee los comentarios para comprender lo que se realiza en cada paso y poder ajustarlo.

Sub copiaCeldas()
'x Elsamatilde
'recorre la hoja activa a partir de fila 1, hasta encontrar una celda vacía-Fin de rango
filx = 2 '1er fila destino
Range("A1").Select
While ActiveCell.Value <> ""
If Left(ActiveCell.Value, 23) = "créditos sobre clientes" Then
 'copia la celda en Hoja2
 ActiveCell.Copy Destination:=Sheets("Hoja2").Cells(filx, 1)
 filx = filx + 1
End If
'pasa a la fila sgte y repite el bucle
ActiveCell.Offset(1, 0).Select
Wend
End Sub

PD) Todo el tema 'bucles' lo podés encontrar en mi Guía N° 6:

http://aplicaexcel.galeon.com/guias.htm

Te recuerdo que la consulta sigue abierta... podes solicitar Aclaraciones o Finalizar.

Sdos

Elsa