Excel macro - Clear contents

[wwj]

Code: Select all

    ' Clear all contents
    Sheets(outSht).Select
    Sheets(outSht).Activate
    
    lastRow = Sheets(outSht).Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.Range("A2:L" & lastRow).ClearContents  ' Keep its format.