Pedro Ignacio Jose Eduardo MONTENEGRO MONTORI

Sub EliminarNegativos() 'Eliminar valores negativos en la fila 9, de la columna F Dim Valor As Single Valor = Range("F9").Value While Valor < 0 Range("9:9").Delete Valor = Range("F9").Value Wend End Sub