Looking for VBA code to find last row then sum

[qfalker]

I have no idea where to start - i have searched the board and thought i may have found a pseudo solution but to no avail.

This info may or may not be pertinent but I have 15 sheets - "Sheet1" I have set the Last Row as:
Sub filtertests()
Dim LastRow As Long

'Find the last row
LastRow = Range("A5").CurrentRegion.Rows.Count

I have 9 of the other sheets (named "sheet2" through "sheet10") that have variations of 100 to 5000 rows, in which i need to sum column Y, Z, AA, AB and AC individually on each tab - two rows below the last data row.
Each data sheet is formatted the same, Header row in Row 5, actual data starts at A:

Tabs 10 through 15 do not have to be summed.

 

[Michael M]

Maybe this, but I have assumed all columns will be the same length

Sub MM1()
Dim lr As Long, n As Integer
For n = 1 To 10
    Sheets("Sheet" & n).Activate
    lr = Cells(Rows.Count, "Y").End(xlUp).Row
    Cells(lr + 2, "Y").Formula = "=Sum(Y1:Y" & lr & ")"
    Cells(lr + 2, "Z").Formula = "=Sum(Z1:Z" & lr & ")"
    Cells(lr + 2, "AA").Formula = "=Sum(AA1:AA" & lr & ")"
    Cells(lr + 2, "AB").Formula = "=Sum(AB1:AB" & lr & ")"
    Cells(lr + 2, "AC").Formula = "=Sum(AC1:AC" & lr & ")"
Next n
End Sub

 

[qfalker]

HOT DANGIT!!!!!! Thanks that works like a charm. MICHAEL THANKYOU!!!

 

[Michael M]

Glad to help...