Crear hoja nueva en excel y copiar un rango de celdas con una macro

Necesito crear una hoja nueva en un libro de excel ejecutando un botón. Pero cuando se crea la nueva hoja, necesito que me copie el mismo nombre de hoja en una celda y que además me copie un rango de celdas de otra hoja. Se podría armar, hasta ahora tengo esto:

Sub ALTA_PACIENTES()
Dim nombreHoja As String
nombreHoja = InputBox("ESCRIBA EL NOMBRE DEL NUEVO PACIENTE:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja
For a = 1 To Sheets.Count
For s = a + 1 To Sheets.Count
If UCase(Sheets(a).Name) > UCase(Sheets(s).Name) Then
Sheets(s).Move Before:=Sheets(a)
End If
Next s
Next a
Sheets("1-ALTA PACIENTES").Select
Range("A1").Select