Israel Cassales

Hola,
Pues el código que ha compartido (en mi opinión) se ve bien en su estructura, tal vez el problema de que se borre el ítem se deba a la forma en que se está limpiando el ComboBox.
Por qué no guarda el ítem seleccionando una variable selectedItem. Así después de limpiar y volver a llenar el ComboBox, restaura el ítem seleccionado.
Algo así:
Private Sub Combobox1_DropButtonClick() Dim sd As New Collection Dim celda As Range Dim dato Dim r As Range Dim UF As Integer Dim selectedItem As String On Error Resume Next Worksheets("CONSOLIDADO").Activate Range("S2").Select ' Guarda el ítem seleccionado selectedItem = Combobox1.Value ' Limpia el ComboBox Combobox1.Clear With Worksheets("BASE") UF = .Range("S" & Rows.Count).End(xlUp).Row Set r = .Range("S2:S" & UF) For Each celda In r sd.Add celda.Value, CStr(celda.Value) Next celda For Each dato In sd Combobox1.AddItem dato Next dato End With ' Restaura el ítem seleccionado Combobox1.Value = selectedItem End Sub  

Para crear un vínculo en la celda de la Hoja16 que apunte a la hoja "clon", podrías utilizar el método Hyperlinks.Add
Sub Guardar() 'AYUDA EXCEL... (tu código) ... ' Si se encuentra la celda If Not rangoTabla Is Nothing Then ' Crear un hiperenlace en la celda encontrada que apunte a la hoja clon Hoja16.Hyperlinks.Add Anchor:=rangoTabla, Address:="", SubAddress:="'" & serie & "'!A1", TextToDisplay:=serie End If 'AYUDA EXCEL... (tu código) ... End Sub Ese código, Anchor:=rangoTabla especifica la celda donde se creará el hiperenlace. Address:="" lo dejas vacío porque el vínculo es a una ubicación dentro del mismo libro de trabajo.
SubAddress:="'" & serie & "'!A1" especifica la hoja y la celda a la que apunta el hiperenlace.
TextToDisplay:=serie es el texto que se mostrará en el hiperenlace.
Si he entendido bien tu consulta sería lo único con lo que creo podría participar. Espero que te ayude, sino regresa a dejar comentarios, es muy posible que algún Maestro aporte algo adicional.