Finding value of last cell in list

[dpaton05]

I need to find the value of the last number in column A and add 1 to it. Can someone help me with the vba for this please?

Thanks,
Dave

 

[Michael M]

Use

Sub MM1()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lr).Value = Range("A" & lr).Value + 1
End Sub

 

[dpaton05]

Thanks Michael.