Copiar y pegar datos de una hoja a otra que yo seleccione

[CrossRntk]

Hola,

Tengo un problema pero para explicarlo debo plantear lo que deseo hacer.

Una macro que cree una nueva hoja con el nombre de un texto(APELLIDOS) de celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en la hoja recien creada o en una hoja que seleccione , o que aparezca formulario pidiendome el nombre de la hoja que deseo copiar, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.También que el pegado sea de en la celda c22.

Dicho esto solo tengo una macro que crea una nueva hoja con el nombre de la celda que yo necesito:

Sub Nuevopaciente()

Dim i As Long

' Si el nombre ya existe, genere un mensaje y no cree la hoja

For i = 1 To Sheets.Count

If Sheets(i).Name = Sheets("Inicio").Range("C6") Then

MsgBox "El nombre de la hoja ya existe. Por favor, Genere un nuevo nombre"

Exit Sub

End If

Next i

' Crea la nueva hoja con el nombre que está en la hoja1 en la celda A1

Sheets.Add

ActiveSheet.Name = Sheets("Inicio").Range("C6")

End Sub

Muchas gracias, espero que compartan su pronta ayuda.

[Armando Montes]

Hola, recibiras mejor atencion siguiendo las:

Normas AyudaExcel | Ayuda Excel

[CrossRntk]

Sí muy cierto, aquí dejo parte de mi proyecto para tener mas en claro el tema:

PACIENTE - Descarga - 4shared