Como hacer para que una celda con fórmula no tenga nada.

Tengo la siguiente macro suministrada en este grupo.
'Para copiar los valores de la factura en la hoja compras
Worksheets("Factura").Range("M7:AC22").Copy
Worksheets("Compras").Range("a65536").End(xlUp) _
.Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

El rango M7:M22 viene de esta formula:
=SI(C7="";"";P$3)
=SI(C8="";"";P$3) ...

La macro funciona bien, solo que el comando .End(xlUp) toma los valores "nada" del rango M7:M22
(que se copian en la columna "A" de la hoja "Compras") como si hubiesen valores
y por consiguiente cuando se hacen varias copias, deja lineas en blanco.

Siempre si el rango M7:M22 debe tener lineas vacias.
Pero para el comando .End(xlUp) no son lineas en blanco y para la proxima copia, pues deja lineas en blanco.

Se puede solucionar esto?

hola, Darío !

prueba a modificar la instruccion donde determinas el rango a copiar de la hoja "factura" +/- asi:

de: -> Worksheets("Factura").Range("M7:AC22").Copy
a:

op1: en el caso de que al no estar vacia la columna C, el dato en P$3 sea un valor numerico...
With Worksheets("factura")
.Range("m7:ac7").Resize(Application.Count(.Range("m7:m22"))).Copy
End With

op2: en el caso de que el contenido de P$3 sea un dato alfabetico...
With Worksheets("factura")
.Range("m7:ac7").Resize(16 - Application.CountIf(.Range("m7:m22"), "")).Copy
End With

saludos,
hector.