Correcting Macro Run-Time error '9' - Subscript out of range

So, I am an average to above average Excel user but am trying to dabble into Macros to make my life easier. I'm trying to create this macro to take a report I pull in from SAP and format it to the way the Senior Management Team wants it in. I keep getting the "Run-time error '9': Subscript out of range" error. I have no clue how to debug this or even how to re-record the macro so that it will be successful. If I can get this macro to work it will save me SOOO much time. I appreciate any help or assistance this group can provide. Thank you in advance for your time.

Cells.Select
    Cells.EntireColumn.AutoFit
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveWorkbook.Worksheets("Report Cleanup").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Report Cleanup").Sort.SortFields.Add Key:=Range( _
        "A2:A84"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Report Cleanup").Sort
        .SetRange Range("A1:BB84")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With