For... Next

Que tal.

Me gustaria aprender mas sobre como crear bucles con For.. Next. Si saben de
algun buen articulo eso me serviria muchisimo.

Hice un ejercisio pero no funciona, en la linea de "ActiveCell.Formula" me
sale un error '1004' Aplication defined or object defined error.


La formula esta bien, sin el macro la arrastro a todas las celdas y no tiene
ningun problema.





sub uno()
Range("d65536").End(xlUp).Offset(0, -1).Value = "fin"
Range("c2").Select
Set trango = Range(ActiveCell, ActiveCell.End(xlDown))
For Each Cell In trango
ActiveCell.Formula =
"=IF(D2=0,"",INDEX(E:E,SUMPRODUCT(MAX(ROW(D$2:D2)*(D$2:D2Ò-1)))))"

Next
End Sub


mUCHAS GRACIAS