Utrolig stor fil -> Lang tid for makrokørsel

Hej eksperter...

Jeg har lavet en lille VBA-makro, som arbejder på 3 ark. På det første ark er der omkring 500 kunder. Via autofilter, har jeg et udvalg af kunder tilbage, som jeg vil have over i en udskriftsfil, dog på 2 linier pr. kunde.

VBA kopierer altså alle synlige rækker fra ark "Kundeliste" og indsætter i et ekstra ark "Liste". Her indsætter jeg en ekstra linie imellem hver kunde, da jeg ellers ikke kan få det til at fungere, da det sidste ark "Udskrift" bliver til via kæde.

Men... en makrokørsel tager 2 lange og 2 brede, og filen fylder mere end 16mb. Hvordan kan det være?

Her er min kode:

Sub Makro1()
'
' Makro1 Makro
'

'
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Sheets("Liste").Cells.ClearContents

Sheets("Kundeliste").Select


ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy

Sheets("Liste").Select
Range("a1").Select: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'Select last row in worksheet.
    Selection.End(xlDown).Select
   
    Do Until ActiveCell.Row = 1
        'Insert blank row.
        ActiveCell.EntireRow.Insert shift:=xlDown
        'Move up one row.
        ActiveCell.Offset(-1, 0).Select
    Loop

Sheets("Udskrift").Select
Range("A3:G3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

numRows = Sheets("Kundeliste").UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Count
numRows = numRows * 2

Range("A1:G2").Select
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(numRows, 7)), Type:=xlFillValues

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub