El mismo título de la hoja origen.en nueva Hoja

Para copiar el mismo título

'Se establece la variable hc como la hoja origen

Set hc = Sheets("Clientes")

'Se crea un nueva libro y a la vez se establece el nuevo libro en la variable l1
Set l1 = Workbooks.Add

'Se establece la nueva hoja del libro nuevo en la variable h1
Set h1 = l1.ActiveSheet
'

Se copia la fila 1 de la hoja origen a la nueva hoja empezando en la celda A1
hc. Rows(1). Copy h1. Range("A1")