Slet kodning i "Microsoft Visual Basic for Applications" ved hjælp af VBA kode - 1.000 point

Jeg har lavet en VBA kode, se neden for, som kopirer 4 faner til en ny Excel fil, ved at klikke på en knap, som indeholder nedenstående VBA kode. Mit problem er, at de 4 faner indeholder VBA koder, som er lavet i "Microsoft Visual Basic for Applications" (Visual Basic).

Når de 4 faner bliver kopieret til en ny Excel fil, kunne jeg godt tænke mig, at nedenstående VBA kode automatisk sletter de koder som ligger i Visual Basic. Ved ikke om dette er muligt?

På forhånd tak for hjælpen:

PS: Er villig til at give 1.000 point

VBA kode
Sub OvfRegnskab()
    Sheets(Array("Hovedtal", "Resultatopgørelse", "Balance", "Noter")).Select
    Sheets("Resultatopgørelse").Activate
    Sheets(Array("Hovedtal", "Resultatopgørelse", "Balance", "Noter")).Copy
    ActiveWindow.SmallScroll Down:=-12
    Cells.Select
    Range("A35").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-50
    Range("B2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Hovedtal for selskab"
    Range("C2").Select
    Sheets("Resultatopgørelse").Select
    ActiveWindow.SmallScroll Down:=-40
    ActiveWindow.DisplayHeadings = True
    ActiveSheet.Unprotect
    Rows("1:7").Select
    Range("A7").Activate
    Selection.Delete Shift:=xlUp
    Cells.Select
    Range("B2").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Resultatopgørelse"
    Columns("E:L").Select
    Selection.EntireColumn.Hidden = False
    Range("F:F,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D8").Select
    Windows("selskab.xlsm").Activate
    Sheets("Balance").Select
    ActiveWindow.DisplayHeadings = True
    ActiveSheet.Unprotect
    Rows("1:5").Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Balance"
    Columns("E:K").Select
    Selection.EntireColumn.Hidden = False
    Range("F:F,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D6").Select
    Sheets("Noter").Select
    ActiveWindow.DisplayHeadings = True
    Rows("1:4").Select
    ActiveSheet.Unprotect
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-93
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Noter"
    Columns("C:H").Select
    Selection.EntireColumn.Hidden = False
    Range("D:D,G:G").Select
    Range("G1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("C3").Select
    ActiveWindow.SmallScroll Down:=-41
    Sheets("Hovedtal").Select
End sub