Excel 2013 Makro wieder rückgängig machen

Hallo Leude,
ich habe in einer Exeltabelle ein Makro aufgezeichnet und einige Formatierungen vorgenommen.

Dummerweise funktioniert jetzt der Reimport in ein Onlinetool nicht mehr. Kann mir jemand einen Tip geben, wie ich die Schritte wieder rückgängig machen kann, am besten Schrittweise,damit ich sehen kann, wo das Problem liegt?..


Sub Datenprüfung()
'
' Datenprüfung Makro
'
' Tastenkombination: Strg+e
'
Cells.Select
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:1").Select
Selection.Font.Bold = True
Columns("I:I").Select
Selection.Cut
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Range("A:D,G:G").Select
Selection.EntireColumn.Hidden = True
Columns("L:L").Select
Range("L:L,L:M").Select
Selection.ColumnWidth = 80
Selection.Rows.AutoFit
' Zellenformatierung Standard
Columns("L:M").Select
Selection.NumberFormat = "General"
Columns("AP:AP").Select
Selection.ColumnWidth = 50
Range("AP1").Select
ActiveCell.FormulaR1C1 = "Kontrollspalte"
Range("AP3").Select
Range("G2").Select
' Sortierung nach Seite
ActiveWindow.FreezePanes = True
ActiveWorkbook.Worksheets("Worksheet 0").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Worksheet 0").Sort.SortFields.Add Key:=Range( _
"E2:E493"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Worksheet 0").Sort
.SetRange Range("E1:AO493")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
' HTML Tags löschen
Cells.Replace What:="<p>", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="</p>", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="<br />", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End With
End Sub

Danke schonmal für Tips