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