Como hacer duplicar pestaña y que haga en automático el foliado con numero de pestaña y folio.

Con esta pequeña macro agregas hojas y el nombre es el numero de hoja

Sub AgregaHojas()
CantHojas = Sheets.Count
 Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = CantHojas + 1
End Sub

Pero nunca vas a poder tener 2 hojas con el mismo nombre

Por ejemplo si le pones a una hoja "Contaduria" y quieres poner otra igual va a decir "Contaduría(1)" y si creas otra más va a decir "Contaduría(2)" y así sucesivamente...

Con esa macro agregas hojas en blanco... si lo que quieres es copiar una hoja especifica cambia esta línea

' Agrega una hoja en blanco
Sheets.Add After:=Sheets(Sheets.Count) 

Por esta

'Copia la hoja "EjemploTodoExpertos"
Sheets("EjemploTodoExpertos").Copy After:=Sheets(Sheets. Count)

En cuanto a la posicion donde se copia puedes jugar con eso..

Si quieres la hoja al principio o al final, antes o despues

Ejemplo si quieres que se copie al final de todo dejalo tal cual te lo pase...

Si quieres que se copie antes de la hoja 1

Cambia el "After:=Sheets(Sheets.Count)" por "Before:=Sheets(1)" o si quieres que se copie despues de la hoja 1 seria "After:=Sheets(1)"

Espero haberte ayudado compañero, un saludo y quedo al tanto =)

Supongo que tu hoja esta así, la hoja 1 y el numero de folio 12356, al momento de copiar la hoja le asignara un numero2 más un aumento en el folio 12357, si es así como lo buscas

Entonces esta es la macro, la macro leerá la pestaña y las propiedades de la hoja buscando el indice y el nombre de la hoja el cual separa para asignar el nuevo folio

Sub copiar()
numero = ActiveSheet.Index
nombre = ActiveSheet.Name
cuenta = Sheets.Count
separa = Split(nombre, " ")
folio = separa(1)
nuevo_nombre = cuenta + 1 & " " & folio + 1
Sheets.Add(After:=Sheets(Sheets.Count)).Name = nuevo_nombre
End Sub