Change RowHeight

Simple enough and does what it's supposed to but...

the sheet im working with is >5k lines long and i dont know how to work this out without a loop, so it takes forever to complete.

would be great if someone has an idea how to improve on this.

Sub AdjustEmptyRowHeight()
Dim i As Integer
Dim lRow As Long
    lRow = ActiveSheet.UsedRange.rows(ActiveSheet.UsedRange.rows.Count).Row
    
    'Application.ScreenUpdating = False
        For i = 1 To lRow Step 1
            If WorksheetFunction.CountA(rows(i)) = 0 Then
                rows(i).RowHeight = 5
            End If
        Next i
    'Application.ScreenUpdating = True
End Sub