Invoke 2nd Procedure In Master Worksheet

I have a code that looks fetches all names of the worksheets in a workbook and lists in a master sheet.

[Code

Sub Button1_Click()
Dim ws As Worksheet
Dim x As Integer
Dim lr As Long
x = 2
lr = Worksheets("Totaliser").Range("A1").End(xlDown).Row
Worksheets("Totaliser").Range("A2:A" & lr).Clear

[code].....

This works fine collecting all of the named sheets but is there a way of me invoking a 2nd procedure to count the number of rows within each worksheet that contain line items which are updated at the beginning of each month. Placing them into the next column (B) to the right of the sheet names.

All worksheets contain a header Row (1) so the count function would if at all possible count from the 2nd Row to the end.

I have tried different lines of code but just get errors.

The code above places the first sheet into cell A2 and then down respectively