insert a new row at the bottom macro

[nats1582]

Hi,

I am trying to insert a new row for each day in ascending order going down, this is for a daily process. However it works that the day goes back one each time e.g. 17, 18, 19 23, 22, 21 20.

How can I make the macro insert a new line at the bottom not the same place?

Cheers,

Nathan

 

[CharlesChuckieCharles]

'get the last used row in column A (A=1)
MyLastRow = Cells(Rows.Count, 1).End(xlUp).Row
' insert date in next row down
cells(MyLastRow+1,1).Value=Format(now(),"DD-MMM-YYYY")