Macro para extraer valor y comprarlo con otro

Dame un minuto y te contesto, mientras visita http://programarexcel.com encontrarás una serie de macros de ejemplos que te pueden ayudar

Pon esa macro en un módulo y hará lo que solicitas

Sub rellena()
Application.ScreenUpdating = False
On Error Resume Next
Dim uf, fila As Integer
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
fila = 2
While Sheets("hoja1").Cells(fila, 1) <> Empty
cadena = Sheets("hoja1").Cells(fila, 1)
esp = InStr(cadena, " ")
dato = Mid(cadena, esp)
dato = Val(dato)
If dato > 0 Then
Sheets("hoja1").Rows(fila).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
fila = fila + 1
dato = Empty
Wend
Application.ScreenUpdating = True
End Sub

http://programarexcel.com/

Hola, gracias por la rápida respuesta, he seguido tus instrucciones y al ejecutar la macro simplemente no hace nada, de hecho excell se queda pensando y se traba... :(  aunque la he modificado (cambiandole el nombre de la hoja y la letra de la columna), debo poner el cursor en un punto específico de la hoja? La columna que quiero evaluar invariablemente será la "O" siempre a partir de la posición 6 hasta n, desde ya muchas gracias por tu atención :)

sube tu archivo desde http://programarexcel.com/p/contacto.html

Ya lo hice, gracias.

Ya lo he subido a donde me indicaste, gracias.