Espero te sirva esto:
Los datos deben estar en la columna A y el resultado se devolvera a partir de B1
Dim Fila As Integer
Dim Buscar As Integer
Dim Buscado As Long
Dim Agregar As Long
Dim Digitos As Long
Range("B:B").ClearContents
Buscado = Val(InputBox("Que Valor Busca?", "Valor"))
Digitos = WorksheetFunction.Count(Range("A:A"))
Agregar = 0
For Fila = 1 To NumDat
For Buscar = Fila + 1 To NumDat
If Hoja1.Cells(Fila, Range("A1").Column) + Hoja1.Cells(Buscar, Range("A1").Column) = Buscado Then
Agregar = Agregar + 1
Hoja1.Cells(Agregar, Range("B1").Column) = Hoja1.Cells(Fila, Range("A1").Column) & " + " & Hoja1.Cells(Buscar, Range("A1").Column)
End If
Next Buscar
Next Fila
MsgBox "Se han encontrado " & Agregar & " Parejas", vbOKOnly, "Resultados"
End Sub