For next sheet +1

Hi

I have one big sheet, one summary page, which is to be a summary journal of all the other area managers journals

I have basic bits done but I am stuck flicking from the managers journal, then pasting it to the summary, then going to the next managers journal sheet.

the summary sheet is on sheet(3) or "Summary Journal", the managers journals are from sheets(5) and above.

The amount of managers change every month and I have to sumif their data, which I have already done.

I need to flick from sheets(5) to the "Summary Journal", do my stuff, then to sheets(6), then to the "Summary Journal", then Sheets(7) and so on

Im assuming I need to, when on Sheets(5) I need to dim the sh = sh+1 or something like that

Dim sh As Worksheet
    Dim wb As Workbook
    
    

    For Each sh In ActiveWorkbook.Worksheets
        With sh
            Sheets(5).Select


    Range("N5:T5").Select ' this is just pasting my workings etc
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Summary Journal").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        
    sh = sh + 1 ' my problem area

    End With
    Next sh