Udsortering fra excel

Hejsa,

Jeg ved ikke om denne her stadig er aktuel, men hvis det er tilfældet er her en idé til en løsning.

-------------------------------------

Sub Sortering_flyt()
   
    Application.ScreenUpdating = False
   
    Dim RK As Long
    Dim RK1 As Long
   
    Workbooks.Open ("C:\Users\Henrik Klein\Documents\VBA\Eksperten\Flyt_konti\Andre.xls")      'Her skiver du stien til placeringen af filen
    Workbooks.Open ("C:\Users\Henrik Klein\Documents\VBA\Eksperten\Flyt_konti\Debitor.xls")    'Her skiver du stien til placeringen af filen
   
    Windows("Debitor.xls").Activate
   
    RK = 2
    RK1 = 54
   
   
    Do
    Cells(RK, 1).Select
    If Cells(RK, 2) = 14156 And Cells(RK, 3) > 100000 Then
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("Andre.xls").Activate
    Cells(RK1, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    RK1 = RK1 + 1
    RK = RK + 1
    Else
    RK = RK + 1
    End If
    Windows("Debitor.xls").Activate
    Loop Until Cells(RK, 1) = ""
   
    Windows("MAKRO.xls").Close

End Sub

-------------------------------------

Jeg er ikke helt sikker på om jeg har forstået det korrekt mht. hvor de kopierede rækker skal kopieres.

Jeg går ud fra at de skal placeres o første ledige række i arket, men eftersom at du skrev række 54 har jeg lagt dem dér i første omgang.
Det kan sagtens ændres, men så må du lige give besked.

Med venlig hilsen

Henrik