I'm still not good with setting up loops. I'm trying to create a simple
macro to sum the values in columns L through O, and put the results in Column
P. i want the loop to run until it detects blanks in Column K.

Sub FillDown()
Range("P2").Select
Do Until ActiveCell.Offset(-5, 1) = ""
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
ActiveCell.Offset(1, 0).Select
Loop
End Sub


Please help!
Thanks,
Ryan--
--
RyGuy