Hente data fra ark til 2 linjer = mangler hver anden linie...

Dim wsData As Worksheet, wsSamlet As Worksheet
Dim rData_1 As Range, rData_2 As Range, rSamlet As Range
Dim lCount_1 As Long

Sub Samlet_makro2()
    Set wsData = Sheets(1) 'sætte sheetsVariable i () kan stå ark-nr. eller Navn
    Set wsSamlet = Sheets(2)
    Set rSamlet = Range(wsSamlet.Cells(1, 1), wsSamlet.Cells(1, 10)) ' sætter RangeVariablen til de 10 første kolonner i række 1
    For lCount_1 = 1 To wsData.UsedRange.Rows.Count  ' arbejder sig ned gennem arket
        Set rData_1 = Range(wsData.Cells(lCount_1, 1), wsData.Cells(lCount_1, 10)) ' første halvdel af rækken
        Set rData_2 = Range(wsData.Cells(lCount_1, 11), wsData.Cells(lCount_1, 20)) ' anden halvdel
        ' ------ kopier data over --------
        rSamlet.Value = rData_1.Value
        Set rSamlet = rSamlet.Offset(1, 0) ' flytter RangeVariablen en række ned
        rSamlet.Value = rData_2.Value
        Set rSamlet = rSamlet.Offset(1, 0)
        ' --------------------------------
    Next iCount_1
End Sub