Zoek een formule die opeenvolgende getallen gaat zoeken in 2 kolommen.

=ALS(ISFOUT(KLEINSTE($A$31:$C$100;1+SOM(AANTAL.ALS($A$31:$C$100;$H$30:H30))));"";KLEINSTE($A$31:$C$100;1+SOM(AANTAL.ALS($A$31:$C$100;$H$30:H30))))

=als(isfout(kleinste($c$8:$l$21;1+som(aantal.als($c$8:$l$21;$l$29:l29))));"";kleinste($c$8:$l$21;1+som(aantal.als($c$8:$l$21;$l$29:l29))))

Sub HSV()
 Dim i As Integer, y As Integer, cl As Range
   Range("M30:M" & Cells(Rows.Count, 13).End(xlUp).Row).ClearContents
    i = 13
     y = 9
      For Each cl In Range("C13:C21,L8:L17")
       If cl > 0 Then
       Range("M29") = 0
   With Range("M65536").End(xlUp)
     .Offset(1) = Cells(i, 3).Value
     .Offset(2) = Cells(y, 12).Value
   End With
  End If
       i = i + 1
        y = y + 1
      Next cl
 Range("M30:M" & Cells(Rows.Count, 13).End(xlUp).Row).AdvancedFilter xlFilterInPlace, _
    Range("M65536").End(xlUp).Offset(1), Unique:=True
End Sub

Sub test()
    Dim G1 As Range, G2 As Range: Set G1 = [gebied1]: Set G2 = [gebied2]
    Dim G1enG2 As Range: Set G1enG2 = Union(G1, G2)
    Dim Opl As Range: Set Opl = [H9] 'vanaf hier komt de oplossinng te staan
    Dim Temp As Range: Set Temp = Opl 'temp onthoud waar  de oplossiing begon
    Dim Col As New Collection
    Dim C As Range 'deze cel doorloopt straks het gebied G1enG2
    
    For Each C In G1enG2
        On Error Resume Next    'GoTo volgende (dan bestaat hij al)
            Col.Add Item:=C.Value, key:=CStr(C) 'toevoegen aan de collectie
            If Err.Number <> 457 And Err.Number <> 0 Then Exit Sub 'dan is er iets anders fout
        On Error GoTo 0 'zo zet je de error behandeling weer op de normale stand
    Next C
    
    For Each I In Col   'en nu invullen
        Opl = I
        Opl.Interior.ColorIndex = 6
        Set Opl = Opl(2, 1)
    Next I
    Opl = "eind"
    Opl.Interior.ColorIndex = xlNone
    Range(Temp, Opl).Sort Key1:=Temp 'en sorteren
End Sub