Experimente:

Sub NúmerosFaltantes()
 Dim a As String, i As Long, k As Long
  For k = 1 To Cells(Rows.Count, 1).End(3).Row
   For i = 1 To 25
    If Application.CountIf(Range(Cells(k, 1), Cells(k, 15)), i) = 0 Then a = a & ", " & i
   Next i
   Cells(k, 16) = Mid(a, 3, Len(a) - 2): a = ""
  Next k
End Sub

Obrigado Osvaldo

consegui por este código aqui

Sub ProcSeq()

Dim Seq, Res, Resultado
Dim Proc As Integer

ColunaResuldado = 17


UL_Linha = Range("A1048576").End(xlUp).Row
  
For Linha = 1 To UL_Linha

    For Proc = 1 To 25
                    
         For Coluna = 1 To 15
               
              If Cells(Linha, Coluna) = Proc Then
                       
                  Resultado = Resultado + 1
                  GoTo PulaProc

              End If
                    
         Next Coluna
                     
PulaProc:
                If Resultado = 0 Then
                    Cells(Linha, ColunaResuldado) = Proc
                    ColunaResuldado = ColunaResuldado + 1
                    Resultado = 0
                End If
                    Resultado = 0
                    
    Next Proc
         ColunaResuldado = 17
         
Next Linha

End Sub