Crear, copiar, hojas con macros

Reninio, he elaborado una hoja de calculo con macros.. Ahora lo que deseo y he intentado es que esa misma hoja me genere otra (copia) a manera de reporte, donde yo designe el nombre y la mueva al ultimo, en mi rutina he logrado crear una hoja con su respectivo nombre, lo que me extraña es que no consigo copiar el contenido de la hoja original en la nueva, ojala hayas entendido mi pregunta, te envío la rutina que emplee.
Saludos
Oscar
Private Sub Reporte_Click()
Dim nbreHoja As String
nbreHoja = InputBox("Ingrese Nombre de la hoja para generar el Reporte:")
If nbreHoja <> "" Then
'se agrega una hoja al final
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'se le asigna el nombre ingresado
ActiveSheet.name = nbreHoja
Sheets("RMR-CSMR").Select
Cells.Select
Selection.Copy
Sheets(nbreHoja).Select
Cells.Select /***AQUI ME SALE EL PROBLEMA NO RECONOCE ESTE PASO cells.select ***/
ActiveSheet.Paste
Range("A14:G14").Select
Sheets("RMR-CSMR").Select
Range("A14:G14").Select
End If
End Sub