Excel - PROBLEMA EN MACRO

Buenos días a todos!!
Estoy haciendo una macro desde una tabla dinámica, para que me genere una hoja nueva cortando por un campo concreto que yo le asigno.
El problema es que debe generar una nueva hoja cada vez que lanzo la macro y me da un error :" Se ha producido error "9" en tiempo de ejecución" al depurar me dice :

Sheets("Hoja4").Select
Sheets.Add
Sheets("Hoja4").Select
Cells.Select
Selection.Copy
Sheets("Hoja8").Select ( ESTA ES LA LINEA QUE ME MARCA COMO ERROR)
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Hoja4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja8").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Yo entiendo que el error esta en el momento de generar la nueva hoja, alguien me puede decir como lo puedo hacer o el código correcto???
He probado de poner Sheets (“New”)... pero no me ha salido bien..... era demasiado fácil no???... soy novata.....

Muchas gracias a todos, espero vuestras respuestas!!

Saludos

Despues de esto:

Sheets("Hoja8").Select

Agrega esto:

[a1].select

Abraham

Buenas Abraham!!
Gracias por la respuesta tan rápida, estoy probando lo que me contestate pero no me funciona, me genera la página nueva pero no me pega los datos que le indico que debe copira primero y luego pegar en la hoja nueva.
Que puede pasar???

Muchas gracias
Noe