eliminar filas valor cero

[omarlext]

como estan , tengo un inconveniente, estoy manejando un codigo que me eliminas las filas que contengan valor cero, pero al eliminar la fila  se desorganiza una tabla, es decir esto es una factura, pero al eliminarce la fila las celdas se mueven hacia ariiba y se descompone la factura este es el codigo que manejo


Sub Macro1()
Dim Rng As Range
With Sheets("CALNOM")
Set Rng = .Range(.[AF29], .[AP29].End(xlDown)): End With
With Sheets("HOJA1")
.Range("e11:o13").Clear
.[o12] = "=" & Rng.Cells(2, 11).Address(0, 0, external:=True) & ">0"
Rng.AdvancedFilter 2, .[o11:o12], .[e13], False
.[e11:o12].Delete xlShiftUp: End With
End Sub

el codigo funciona bien pero necesito que desde la fila 28 hacia abajo no se elimine nada , pues hay estan los resultados de la facura.....gracias

[jefe1024]

Y en vez de borrar la fila porque no pones un espacio " ", así no sale nada y no se te mueven las filas