clear worksheet except header row

mdlCleanSheet.bas

'---------------------------------------------------------------------------------------
' Function: ClearDataWorksheet
'---------------------------------------------------------------------------------------
' Purpose: clear worksheet content after header
' Param  : Worksheet wksSheet reference to worksheet
' Remarks: e.g. usage: Call ClearDataWorksheet(ThisWorkbook.Worksheets(1))
'---------------------------------------------------------------------------------------
Public Function ClearDataWorksheet(ByRef wksSheet As Worksheet)
    Dim lLastRow As Long
    Dim lLastColumn As Long
    Dim rngUsedRange As Range
    
    Set rngUsedRange = wksSheet.UsedRange
    lLastRow = rngUsedRange.Rows.Count
    lLastColumn = rngUsedRange.Columns.Count
    
    If lLastRow > 1 Then
        With wksSheet
            .Range(.Cells(2, 1), .Cells(lLastRow, lLastColumn)).Delete
        End With
    End If
    
End Function