Kopiere data - evt. med musen? - eller VBA?

Hejsa,

Er det muligt at kopiere data, som ikke er direkte fortløbende?

Jeg har f.eks. lavet en liste, som via autofilter har forskellig længde hver gang. Denne liste kopieres over i et tomt ark, så alle rækker er synlige.

Nu skal jeg så bruge nogle af dataene til at lave en udskrift.
F.eks:
A1=Liste!B1 - C1=Liste!M1 - D1=Liste!F1 - F1=Liste!O1
A2=Liste!C1 - B2=Liste!E1 - F2=Liste!H1 - G2=Liste!I1

Disse 2 linier skal så 'trækkes' ned, indtil at der ikke er flere data i autofilterlisten...

Er det muligt?

-----

Problemet er, at hvis jeg markerer området og trækker ned, så springer den et tal over! Jeg har fået en meget langsom løsning, nemlig at - via VBA - indsætte en tom linie mellem hver eneste linie, og så derefter bruge autofill

Sub Makro1()
'
' Makro1 Makro
'
Application.ScreenUpdating = 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

    Selection.End(xlDown).Select
    Do Until ActiveCell.Row = 1
    ActiveCell.EntireRow.Insert shift:=xlDown
    ActiveCell.Offset(-1, 0).Select
    Loop

Sheets("Udskrift").Select
    Range("A1:G2").Select
    Selection.AutoFill Destination:=Range("A1:G500"), _
    Type:=xlFillDefault


End Sub