Elegir primer numero faltante en serie del 1 al 50

Con la siguiente macro en la variable j tienes el número que falta

Sub numero()
'Por.DAM
j = 1
For i = 7 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, "A") <> j Then MsgBox "Falta el: " & j: Exit For
    j = j + 1
Next
End Sub

Saludos. DAM
No olvides finalizar la pregunta.