Macro procedures

I am trying to record a macro which begins with a cell that I click on, and
the references up the same column 5 rows to complete a calculation. Once
finished it should move down 5 rows and repeat process. Can't make it not
reference specific cell. Any suggestions??

Sub AAA()
ActiveCell.FormulaR1C1 = "=Sum(R[-1]C:R[-4]C)"
ActiveCell.Offset(5, 0).Select
End Sub

assume you click in E5. and run the macro

It will put in the formula =Sum(E1:E4), then move to E10. Click again, it
will put in the sum
=Sum(E6:E9) then move to E15

--
Regards,
Tom Ogilvy

"Danita" <Danita@discussions.microsoft.com> wrote in message
news:0A849237-2BA8-4E43-8A3D-912C537B382F@microsoft.com...
> I am trying to record a macro which begins with a cell that I click on,
and
> the references up the same column 5 rows to complete a calculation. Once
> finished it should move down 5 rows and repeat process. Can't make it not
> reference specific cell. Any suggestions??