Reparationer i fil - Fjernede poster: Sortering fra /xl/worksheets/sheets5.xml-del

Hver gang jeg har kørt nedenstående makro har jeg problemer, når jeg vil åbne filen igen. Jeg får først en meddelelse om, at der blev fundet indhold i filen, der ikke kunne læses. Jeg svarer ja til at gendanne projektmappens indhold. Derefter får jeg en meddelelse med overskriften: 'Reparationer i [filnavn]' og teksten: Excel kunne åbne filen ved at reparere eller fjerne indholdet, der ikke kunne læses. Fjernede poster: Sortering fra /xl/worksheets/sheet5.xml-del.

Hvordan kan jeg undgå det?

Koden:
Sub OpdaterStartDenneMåned()

Dim c As Excel.Range
Dim i As Integer
Dim antrk1 As Integer
Dim antrk2 As Integer

antrk2 = Worksheets("StartDenneMåned").UsedRange.Rows.Count
Worksheets("Placering").Range("A2") = antrk2 + 1

Worksheets("StartDenneMåned").Range("a6:a" & antrk2).EntireRow.Delete

antrk1 = Worksheets("Placering").UsedRange.Rows.Count

i = 5
    For Each c In Worksheets("Placering").Range("d6:d" & antrk1).Cells
          If Month(c.Value) = Month(Date) Then
          If Year(c.Value) = Year(Date) Then
        i = i + 1
            Worksheets("StartDenneMåned").Range("a" & i).Value = c.Offset(0, -3).Value
            Worksheets("StartDenneMåned").Range("b" & i).Value = c.Offset(0, 2).Value
            Worksheets("StartDenneMåned").Range("c" & i).Value = c.Offset(0, 10).Value
            Worksheets("StartDenneMåned").Range("d" & i).Value = c.Offset(0, 0).Value
          End If
        End If
    Next
 
    Worksheets("StartDenneMåned").Sort.SortFields.Add Key:=Range("D6:D" & antrk3) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StartDenneMåned").Sort
        .SetRange Range("A5:D" & antrk3)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End Sub