Question related to add headers and hide sheet

Excel 

The solution is to modifiy the code not to select the worksheets or ranges.

Option Explicit

Public Sub FinalReportLoop()
    Dim i As Integer
    Dim ws As Worksheet
    Dim wsR As Worksheet
    Dim rng As Range
    
    Application.ScreenUpdating = False
    Set wsR = Worksheets("Yearly Report")
    
    wsR.Cells.Clear
        
    For i = 1 To Worksheets.Count - 1
        Set ws = Worksheets(i)
        
        AddHeaders ws
        FormatData ws
        AutoSum ws
        
        If i = 1 Then
            Set rng = wsR.Range("A1")
        Else
            Set rng = wsR.Range("A" & wsR.Rows.Count).End(xlUp).Offset(3)
        End If
        
        ws.UsedRange.Copy Destination:=rng
    Next i
    
    wsR.Columns("A:F").EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

Public Sub AutoSum(ws As Worksheet)
    Dim rng As Range
    Set rng = ws.Range("A1").End(xlDown)
    If rng.Value <> "Total" Then
        With rng.Offset(1, 0)
            .Value = "Total"
            .Font.Bold = True
        End With
        With ws.Range("F" & rng.Row + 1)
            .Formula = "=SUM(F2:F" & rng.Row & ")"
            .Font.Bold = True
        End With
    End If
End Sub

Sub AddHeaders(ws As Worksheet)
    If ws.Range("A1").Value <> "Division" Then
        ws.Range("A1").EntireRow.Insert
        ws.Range("A1:F1").Value = Array("Division", "Category", "Jan", "Feb", "Mar", "Total Expense")
    End If
End Sub

Sub FormatData(ws As Worksheet)
    With ws.Range("A1:F1")
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = -0.249977111117893
            .PatternTintAndShade = 0
        End With
        With .Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
            .Bold = True
        End With
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    ws.Range(ws.Range("C2"), ws.Range("C2").End(xlDown).End(xlToRight)).Style = "Currency"
End Sub