Application.ErrorCheckingOptions.NumberAsText= False Dim lastRow As Long Dim i As Long, j As Long Dim Tiger, Lion, recon As Worksheet Dim compareRange As Range Dim cell As Range Dim dict As Object Set recon= Thisworkbook.Workshets(“Recon”) lastRow= recon.cells(recon.Rows.Count, “A”). End(xlup).Row lastcol= recon.cells(1,recon.columns.Count).End(xlup).column recon.sort.Sortfield.Clear recon.Range(“A1:A” & lastRow).NumberFormat =”@” With recon.sort .Sortfields.Clear .SortField.Add2 Key: = Range(“A2:A1401″_ ), Sorton: = […]