Macro que funciona como buscador 2 parte

continuando con la segunda pregunta: de esta Macro:

Public Sub BUSCADOR(datobuscar As String)'Autor: Pavel Enrique Ramos, 2006Dim filaInicio As Integer, columnaInicio As Integer, filaDato1 As Integer, filadato As Integer, columnaDato As Integer, i As ByteDim datoEncontradoDim contador As IntegerDim cadenaValores As Stringcontador = 0'ActiveSheet.UnprotectApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseWith Range("zona").ClearContents 'Limpia el rango donde se muestra la búsqueda.Font.Bold = False.Font.Color = vbBlackEnd WithfilaInicio = Range("inicio").Row 'Fila del rango inicio ("$B$4"), varía si se modifica el formato de la hojacolumnaInicio = Range("inicio").Column 'Columna del rango inicio ("$B$4"), varía si se modifica el formato de la hojaWith Worksheets("INVENTARIO").Range("A1:D5000")Set datoEncontrado = .Find(datobuscar)If Not datoEncontrado Is Nothing ThenfilaDato1 = datoEncontrado.RowDofiladato = datoEncontrado.RowcolumnaDato = datoEncontrado.ColumnFor i = 0 To 3 'Cambiar el 3 por 4 si se requiere otra columnacadenaValores = Sheets("INVENTARIO").Cells(filadato, i + 1).Value 'ID CATWith ActiveSheet.Cells(filaInicio + i, columnaInicio).Value = cadenaValoresIf i = 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Range(.Address), Address:="", SubAddress:= _"INVENTARIO!" & datoEncontrado.Address, TextToDisplay:=cadenaValoresIf InStr(1, cadenaValores, datobuscar, 1) > 0 Then.Characters(Start:=InStr(1, cadenaValores, datobuscar, 1), Length:=Len(datobuscar)).Font.Bold = TrueEnd IfEnd WithNextcontador = contador + 1filaInicio = filaInicio + 3 'Cambiar el 3 por 4 si se requiere otra columnapróxima:Set datoEncontrado = .FindNext(datoEncontrado) 'Busca el siguiente datoIf datoEncontrado.Row = filadato Then filadato = filadato + 1: GoTo próxima:filaInicio = filaInicio + 1Loop While Not datoEncontrado Is Nothing And datoEncontrado.Row <> filaDato1End IfEnd WithSheets("PRINCIPAL").Label1.Caption = contador & " registros(s) encontrado(s)." 'Muestra en el Label 1 los registros encontradosApplication.EnableEvents = TrueApplication.ScreenUpdating = False'ActiveSheet.ProtectEnd Sub

Me queda preguntarte que en las columnas de la hoja inventario: Clave Municipal y Población Total, los valores que busca la Macro los lleva sin estos comentarios detallando el nombre de cada columna, ejemplo, estos aparecen como una división:Resultado de la búsqueda de ORASonoraSan Miguel de Horcasitas260566036Se podría en ves de esta forma, que aparezcan de esta otra forma discriminando los nombres de los valores así:SonoraSan Miguel de HorcasitasClave Municipal 26056Población Total 6036El resaltado en negrilla, es lo que deseo que se agregue a la búsqueda de la Macro, detallando a que pertenecen los valores. Muchas Gracias.