Como programar un commandbutton para que no me copie un código ya existente?

Hola a todos......

Quisiera que me ayudaran con una programación de combobox
Tengo una base de datos llamada "base" donde se encuentran el código, nombre, proveedor....
Además tengo un rango "codigoss" donde se encuentran los códigos.
Quiero que cuando digite un código que no exista me arroje un mensaje diciéndome que no existe que lo agregue a la base de datos...
Aquí les muestro la programación del combobox….

Private Sub ComboBox1_Change()
On Error GoTo FIN
Sheets("BASE").Select
Range("CODIGOSS").Select
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Label2 = Selection
FIN:

este es el botón guardar

End Sub
Private Sub CommandButton1_Click()
NUEVAFACTURA
Range("NUEVA_FACTURA").ClearContents
Label2 = ""
ComboBox1.SetFocus
End Sub