Hiding Row code running slow

Try this macro: if it does not help, try sorting your worksheet first, based on column AU then hiding the rows as a block rather than individually.  Or just use a filter to hide those cells that are filled.

Sub SpeedMacro()
    Dim xlCalc As XlCalculation
    Dim rngA As Range
    Dim rngB As Range
    Dim rngC As Range
    Dim shtS As Worksheet
    Dim wkbkW As Workbook
    Dim i As Integer
    Dim lngR As Long
    Dim iCol As Integer

    With Application
        .ScreenUpdating = False
        xlCalc = .Calculation
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .DisplayAlerts = False
    End With

HideRowIfCompleted

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
        .Calculation = xlCalc
    End With

End Sub