I have attached the csv file and my code is:
Sub TidySheet()
'
' TidySheet Macro
'
' Keyboard Shortcut: Ctrl+a
'
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("G3").Select
ActiveCell.FormulaR1C1 = "£118.93"
Range("A2").Select
Cells.Replace What:="£", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns("A:A").ColumnWidth = 13.29
Columns("B:B").ColumnWidth = 43.86
Columns("G:G").ColumnWidth = 15.14
Columns("H:H").ColumnWidth = 16
Columns("H:H").ColumnWidth = 12.71
Range("O1").Select
ActiveCell.FormulaR1C1 = "Rank"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=RC[-8]/RC[-7]"
Range("O2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.FillDown
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 1
Range("A1").Select
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Selection.AutoFilter
ActiveSheet.Range("$A$1:$O$6607").AutoFilter Field:=8, Criteria1:=">0", _
Operator:=xlAnd
ActiveSheet.Range("$A$1:$O$6607").AutoFilter Field:=7, Criteria1:=">1000", _
Operator:=xlAnd
Columns("C:C").ColumnWidth = 25
Columns("O:O").ColumnWidth = 19.29
Columns("O:O").Select
Selection.Style = "Currency"
Range("O2").Select
ActiveSheet.AutoFilter.Sort. _
SortFields.Add Key:=Range("O2"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
'Range("O1:O" & Cells(Rows.Count, "O").End(xlUp).Row).Sort Key1:=Range("O1"), Order1:=xlDescending, Header:=xlYes
'With ActiveWorkbook.Worksheets("TidySheet").AutoFilter.Sort
' .Header = xlYes
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
' .Apply
'End With
End Sub
Bookmarks