Adding total row below final row

[Human_doing]

Hi,

Could anyone please provide the VBA to count how many rows are used on a worksheet and add it in the first empty cell of column A, but excluding the header row? i.e. if there are 21 rows, one of which is header, cell A22 reads "Total: 20"

Many thanks

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & LR + 1).Value = LR - 1
End Sub

 

[Human_doing]

Thanks that's perfect, cheers