VBA code to filter numbers that do not exist in a range

[Excelpromax123]

Hello everyone. I need a VBA code to filter numbers that do not exist in column B to column D as shown in the picture. Thank you

Loading Google Sheets

 

[bebo021999]

Try with VBA solution
Click the button "RUN" to generate the Output

abcd.xlsm

drive.google.com

Option Explicit
Sub test()
Dim i&, j&, k&, rng, res()
rng = Range("B3:B14").Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 1 To UBound(rng) - 1
    For j = i + 1 To UBound(rng)
        If rng(j, 1) = rng(i, 1) + 1 Then
        Else
            k = k + 1
            res(k, 1) = rng(i, 1) + 1 & IIf(rng(i, 1) = rng(j, 1) - 2, "", " - " & rng(j, 1) - 1)
        End If
        Exit For
    Next
Next
Range("D3:D1000").ClearContents
Range("D3").Resize(k, 1).Value = res
End Sub