Cellen kopiëren en sorteren naast een gelijke waarde

[ExcelTerry]

Dag Allemaal,

Ik heb een vraag over een project waar ik mee bezig ben. Zie bijgevoegde Excel Sheet.

In het eerste tabblad zie je de huidige situatie. Zodra het nummer in kolom C ("contractnummer van") gelijk is aan het nummer in kolom G ("contractnummers"), dan moeten de cellen A3 t/m F3 voor cel G12 komen te staan.

Zie in tabblad 2 de gewenste situatie. De hele regel moet verplaatsen indien de nummers in kolom c overeenkomen met kolom g.

Hopelijk snappen jullie het een beetje. Ik hoor het graag!

 

[Timshel]

Met een macrootje

Sub tsh()
    Dim Br
    Dim i As Long, r As Long
    
    With Sheets(1)
        Br = .Cells(1).CurrentRegion
        For i = 2 To UBound(Br)
            If .Cells(i, 3) <> "" And .Cells(i, 3) > .Cells(i, 7) Then
                r = Application.Match(.Cells(i, 3), .Columns(7), 0)
                .Range("A" & i & ":F" & .Cells(Rows.Count, 1).End(xlUp).Row).Cut Destination:=.Cells(r, 1)
            End If
        Next
    End With
End Sub