Eliminar fila pero conservando fórmula

Srs integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo en como mejorar la macro, lo que requiero es que al eliminar la fila, que se encuentran entre las filas pintadas de color amarillo, pero conservando la fórmulas que encuentran pintada de color plomo, adjunto macro

Sub EliminarFila()
Selection.Delete Shift:=xlUp
Range("R" & Selection.Row).Formula = "=R" & Selection.Row - 1
End Sub

Pero al momento de ejecutar la macro realiza este procedimiento, dejándola dispareja.