Sub Clear_TIX_TEMPLATE_2019() Windows("JANemberADHOC.xlsx").Activate Range("C2:D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("H2").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("J2:AE2").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("AG2:Am2").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents ActiveWorkbook.Save Range("A2:B2").Select Range("C2:C10") = "Luc Trudel" Rows("11").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp Range("A2").Select End Sub