Hjælp til tricky VBA-kode

Jeg er lykkedes med at lave nedenstående VBA kode som udfører 2 handlinger.
Først navndøber den det aktuelle ark til værdien i celle I5 - den fungerer fint.
Dernæst kopierer den arket til en anden excel-mappe, men her "glemmer" Excel navnet på arket og indsætter det med seneste arknavn i destinationsmappen efterfulgt af (2) pga. dublet.

Hvem kan løse at den blot husker navnet og indsætter med det rigtige navn?

Sub KopierArkTilAndenMappe_Oprindelig()

    ' --- Trin 1: Navngiv arket i kildefilen ---
    ' Dette navn vil blive overført til destinationsfilen
    ActiveSheet.Name = Range("I5").Value

    Dim MappeDest As Workbook ' Deklarer variablen for destinationmappen
    ' Dim ArkDest As Worksheet ' Denne variabel er ikke nødvendig for denne logik
    Dim FilSti As String      ' Deklarer variablen for filstien
    Dim FilNavn As String    ' Deklarer variablen for filnavnet
   
    ' --- Sæt filsti og filnavn for destinationsmappen ---
    FilSti = "C:\Users\fr\Desktop\" ' **VIGTIGT: Erstat med den faktiske sti**
    FilNavn = "Projektoverblik.xlsx" ' **VIGTIGT: Erstat med filnavnet**
   
    ' --- Åbn destinationsmappen ---
    Set MappeDest = Workbooks.Open(FilSti & FilNavn)
       
    ' --- Kopiér det aktuelle regneark til destinationsmappen ---
    ' Arket kopieres med det navn, det fik i trin 1.
    ActiveSheet.Copy After:=MappeDest.Sheets(MappeDest.Sheets.Count)
   
    ' --- Gem destinationsmappen ---
    MappeDest.Save
   
    ' --- Luk destinationsmappen ---
    MappeDest.Close
   
    ' --- Slet de midlertidige variabler ---
    Set MappeDest = Nothing
    ' Set ArkDest = Nothing
   
    MsgBox "Regnearket er kopieret til projektoverblikket og gemt. Arknavnet blev bibeholdt.", vbInformation

End Sub