Macro copiar hoja actual y pasar al vinculo siguiente.

Llevo tiempo buscando esto y no lo encuentro, espero que alguien me pueda ayudar.

Quiero hacer un boton, donde al hacer click la macro copie la hoja actual, (se llama 01 Enero) a una hoja nueva en el mismo libro, cambiandole el nombre (02 Enero) y que pase todos los vinculos de esa hoja a las celdas siguientes, tengo muchos vinculos en cada hoja y al copiar una nueva hoja, tengo que estar actualizando cada vinculo de manera manual, por ejemplo en hoja llamada 01 Enero tengo el vinculo ubicado en la celda A1, a otro libro, en hoja 1, celda C1, cuando hago una nueva copia llamada 02 de Enero, el vinculo que tengo en A1, ahora va a cambiar a libro1, hoja1, C2, y así con todos los vinculos.

(Cada vinculo esta ubicado en diferente libro, hoja, celda y columna)

Llevo esto y me copia bien, pero no se que hacer para que me cambie el nombre.

Sub Copiar_hoja1()
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
End Sub

Para los vinculos se me ocurrio un contador, donde vaya incrementando 1 fila, con respecto a los vinculos mostrados en la hoja actual.

Algo asi.

Sub Contador_Filas_Columnas()
Dim Col As Integer, Fila As Integer
For Col = 2 To 2
For Fila = 2 To
Cells(Fila, Col) = Cells(Fila, Col)
Next
Next
End Sub

O pense en que me diera el resultado de la siguiente celda a la que tengo activa.

Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate

Pero son muchos vinculos y no se me hace algo bueno tener todos
los archivos y libros abiertos para que esto se ejecute.

En resumen no tengo nada en concreto y no se como hacerlo.

Se agradece la ayuda que me proporcionen.