Option Explicit

'soluzione 1
'somma i valori del range e applica una semplice formula di Gauss
Function missing_num(rng As Range) As Long
Dim cell As Range, xSum As Long, n As Long
    For Each cell In rng
        xSum = xSum + cell
    Next
    n = Application.Max(rng)
    missing_num = n * (n + 1) / 2 - xSum
End Function


'soluzione 2
'usa un trucco con Xor
'pone i numeri del range in Xor con un indice in sequenza
'poichè un numero in Xor con se stesso risulta zero,
'un risultato diverso da zero indica un numero fuori sequenza
Function missing_num2(rng As Range) As Long
Dim i As Long
    For i = 1 To rng.Count
        If (i Xor rng.Cells(i)) <> 0 Then
            missing_num2 = i
            Exit Function
        End If
    Next
End Function