hi
since you are moving down column AG, i'm assuming that column AG is empty.
try this...
Sub copyit()
Dim r As Range
Dim ro As Range
Set r = [E7]
Set ro = [AG65000].End(xlUp).Offset(1, 0)
ro.Value = r.Value
End Sub

this would go into a standard module.

Regards
FSt1

"John Calder" wrote:

Hi

I run Excel 2K

I need a macro that copies the contents of cell E7 to cell AG5 then the next
time I run the maco it copies the contents from cell E7 to cell AG6 then the
next time i run the macro it copies cell E7 to cell AG7 etc etc etc....

Thanks