¿Crear carpeta según valor de celda y guardar una copia de mi libro en esa carpeta creada?

Esta parte no la entiendo: "generar una carpeta con valor de la celda a2 hasta f50".

La siguiente macro te crea una carpeta con lo que tengas en la celda A2 y te guarda el archivo en esa carpeta.

Sigue las Instrucciones para ejecutar la macro
1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Sub crearcarpeta2()
'Por.DAM
 ruta = ActiveWorkbook.Path
 nom = ActiveWorkbook.Name
 If Dir(ruta & "\" & Range("A2"), vbDirectory) = "" Then
  MkDir ruta & "\" & Range("A2")
  ActiveWorkbook.SaveAs ruta & "\" & Range("A2") & "\" & nom
 End If
End Sub

Saludos.Dante AMor

Si es lo que necesitas.

Perdón si no supe explicar lo que pasa que en mi hoja de trabajo tengo varios datos desde la celda a2 hasta la celda f50 pero la celda a2 seria la que llevaría el nombre de la carpeta y dentro de esa carpeta se guardarían mis datos de la celda a2 hasta la celda f50.

Espero y con esto poder aclarar la duda que tengo.

Gracias, saludos!!

Sigo sin entender lo que necesitas

Vamos por partes

1. En la celda "A2" tienes un dato, ¿correcto?

2. Quieres que se cree una carpeta con ese dato, ¿correcto?

3. En las celdas de la A2 a la F50, tienes varios datos, ¿qué quieres hacer con estos datos?

4. A qué le llamas: "dentro de esa carpeta se guardarían mis datos de la celda a2 hasta la celda f50"

Muchas gracias por la atención y espero explicarme mejor:

Con los puntos 1 y 2 es correcto que pueda crear la carpeta con la celda a2.

3. Con los datos que tengo de la A2 a la F50 copie la información y la guarde en un libro nuevo dentro de la carpeta que se genero de la celda A2.

He intentado generar la carpeta con el valor de la celda pero no he podido que se copie y guarde mi información dentro de la carpeta.

Busque dentro de sus comentarios y esto es lo que tengo y me falta que guarde el libro dentro de la carpeta ya que mi LIBRO me la guarda hasta la carpeta de EJEMPLO y no dentro de la carpeta que se creo con la celda a2

Sub Botón1_Haga_clic_en()
ejemplo = ("C:\Cuentas\EJEMPLO\" & Range("A2"))
MkDir ejemplo
Range("A2:F50").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=ejemplo & Range("A2") & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End Sub

Ojala y me haya explicado y reiterando las gracias por el apoyo.