Tor Cheer

Cree un botón y con es macro le hará una copia de su archivo Sub GuardarLibro() 'Tor Dim newBook As Workbook Dim newSheet As Worksheet Dim name As String ruta = ThisWorkbook.Path name = InputBox("Escriba el nombre del Libro") & ".xlsm"...

Pruebe haciendo referencia al nombre de la hoja Sheets("NombreHoja").Unprotect "VEO_2016"

De clic derecho en la hoja en cuestión y de clic en Ver código y ponga este código Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Name = Range("R1").Value End Sub

Seria bueno que ponga los datos ya filtrados para entender mejor, ya que en el ejemplo que tiene su archivo el dato RUBRO nada más tiene MEDICINA y supongo que no es el ultimo, así como también se observa que el CÓDIGO es único y no hay repetidos,...

No me queda bien claro lo que necesita, si puede compartir una copia de su archivo y explicar ahí el rango de celdas a imprimir y donde están los demás datos en el rango de fechas

Intente de esta manera Sheets("Hoja1").Cells(9, 2).End(xlDown).Select ActiveCell.Offset.Cells(1, 0).Select

Ponga un ejemplo gráfico de sus datos o mejor aun comparta una copia de su archivo para tratar de ubicar el problema

No me queda claro lo que necesita, puede compartir una copia de su archivo y explicar ahí un poco más a detalle.

A la fórmula aplique en formato personalizado como se muestra en la imagen

¿Va la macro de su pregunta Generar contraseñas aleatorias en macro? Porque no me dejo subir la macro