2. Click Insert > Module, and paste the following macro in the Module window. VBA code: Auto number or renumber after filter Sub Renumbering() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selectio...