ændring af makro

Jeg har denne makro som jeg har fået af kabbak. Jeg vil gerne have ændret lidt i den, så når man køre denne makro tager et bestemt ark"kontiark" og bruger hver gang den laver et nyt Ark"fane" + at arkene bliver sorteret hver gang makroen bliver kørt. Jeg har denne Formel i A1 kan det køre sammen =MIDT(CELLE("Filnavn";A1);FIND("]";CELLE("filnavn";A1))+1;999)+ et LOPSLAG i B1 Der tager tallet fra A1 problemet er at det først kan bruges
efter man har tastet F2 og derefter F9 er der nogen der kan hjælpe.


Sub MakeSheets()
Dim rg As Range
Dim sh As Worksheet
Dim temp, bfound As Boolean
Application.ScreenUpdating = False
Set rg = Sheets("ark1").Range("A1:A300")
'indsæt
For Each c In rg
    If Len(c) > 0 Then
        If Not SheetExist(c.Text) Then
            Set sh = Worksheets.Add(after:=Sheets(Worksheets.Count))
            sh.Name = c.Value
        End If
    End If
Next
'slet
temp = rg
'spring de første 3 ark over
For x = 4 To ActiveWorkbook.Worksheets.Count
    bfound = False
    For y = 1 To UBound(temp, 1)
        If temp(y, 1) <> "" Then
            If Worksheets(x).Name = CStr(temp(y, 1)) Then
                bfound = True
                Exit For
            End If
        End If
    Next
   
    If bfound = False Then
        Application.DisplayAlerts = False
        Worksheets(x).Delete
        Application.DisplayAlerts = True
    End If
Next
Sheets("Ark1").Select
Application.ScreenUpdating = True
End Sub