Macro condicionada

Algo asi tal vez:

Sub test()
Dim Rng As Range
Dim strRng1 As String
Dim strRng2 As String
Dim strRng3 As String

With ActiveSheet
Set Rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
End With

strRng1 = Rng.Address(, , , 1)
strRng2 = Rng.Offset(, 29).Address(, , , 1)
strRng3 = Rng.Offset(, 30).Address(, , , 1)

Rng.Offset(, 31) = Evaluate("IF(" & strRng1 & "<>""""," & strRng2 & "+" & strRng3 & ","""")")
End Sub

Saludos,
KL


"Belinda" wrote in message news:
...solicito vuestra ayuda para realizar una macro que evalúe un rango
que empieza en A2, sigue en A3, A4 y no se dónde termInará, para que
si encuentra algo en alguna celda de ese rango, sume en su
correspondiente celda en AF (AF2, AF3, etc, lo que hay en AD2+AE2...

..o sea que, si A2 no está vació, suma en AF2 lo que hay en AD2+lo que
hay en AE2..y asi sucesivamente hasta que en la columna A no haya
nada

Gracias por vuestra ayuda