Hente data og indsætte EXCEL 2007

Hej Palito,

Herunder et forslag til en enkelt løsning.

Sub Flyt_rækker()

    Dim RK As Long
   
    Workbooks.Open ("C:\Users\Henrik Klein\Documents\VBA\Map1")
    Sheets("Ark1").Select
   
    RK = 1
    Do
    Cells(RK, 1).Select
    Selection.Copy
    Windows("Map2").Activate
    Cells(1, 1).Select
    If Cells(1, 1) = "" Then
    ActiveSheet.Paste
    Else
    If ActiveCell.Offset(1, 0) = "" Then
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Else
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    End If
    End If
    Windows("Map1").Activate
    RK = RK + 1
    Loop Until Cells(RK, 1) = ""
    Application.CutCopyMode = False
End Sub