Add 1 to lastrow count

[Dukesford]

I have the code below, every time I run it I want it to add 1 to the count. So lets say I start with a count of 10, after I run it I want it to count 10 then add one so it autofills the formula 11 times instead of 10. Then next time i run it it will count 11 then add one so it autofills the formula 12 times, etc....

Sub Macro2()
With Sheets("balances").Activate

Dim lastrow As Long
    lastrow = Cells(Rows.count, 1).End(xlUp).Row
     Range("b6").formula = "=eomonth(b5,1)"
     Range("b6").AutoFill Destination:=Range("b6:b" & lastrow)
End With

End Sub

 

[webbie]

So you want to add a row each time you run the formula.

use

nextrow= range("A65536").end(xlup).row+1

Then just fill to nextrow each time