Macro copiar fila y borrar celdas

hola, 'anonimo/a' !

... la siguiente macro... busca un valor (respuesta) y copia la fila en la que lo encuentra:
For Each Celda In Range("C7:C65000")
If Celda.Text = Respuesta Then
Rows(Celda.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Exit For
End If
Next
... pero como puedo ahora borrar celdas concretas de esta nueva fila? (por ejemplo de las columas I a Q, pero no se que fila es)

prueba con algo +/- como lo siguiente [de paso, te ahorras un 'bucle' que pudiera ejecutarse n_celdas hasta encontrar lo buscado] :))

Dim Celda As Range
On Error Resume Next
Set Celda = Range("c:c").Find(What:=Respuesta, After:=Range("c7"), LookAt:=xlWhole)
If Celda Is Nothing Then MsgBox Respuesta & " NO se encuentra !!!": Exit Sub
Celda.EntireRow.Copy
Range("a" & Celda.Row).Insert Shift:=xlDown
Range("a" & Celda.Row).Offset(, 8).Resize(, 9).ClearContents
Set Celda = Nothing

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.