Visual Basic - Ayuda Macro

Estimados buen día, estoy queriendo crear una macro para excel, lo que quiero es que la macro agregue una hoja de nueva pero que la renombre con el texto que yo coloque en la celda A1. Será que me pueden ayudar?

Muchas Gracias, saludos desde Honduras

Prueba con esto

Sheets("Hoja1").Select
Sheets.Add
Sheets(1).Move After:=Sheets(sheets.count)
Sheets(Sheets.Count).name=Sheets("Hoja").Range("A1")

Te explico linea a linea como va.

Selecciono la hoja 1, de esta manera la nueva hoja se situará a la izquierda y tengo la posición.
Sheets("Hoja1").Select

Añado una nueva hoja, que quedará a la izquierda de la Hoja1
Sheets.Add

Muevo la hoja al final del libro
Sheets(1).Move After:=Sheets(sheets.count)

Le cambio el nombre a la hoja que he creado por el que aparece en la Celda A1 de la Hoja1.
Sheets(Sheets.Count).name=Sheets("Hoja1").Range("A1")

Espero te sirva la respuesta