Consulta de una macro

Ante todo buenas noches y gracias por atenderme, mi pregunta es la siguiente: quiero copiar una hoja de excel en otra pero que sólo me copie los valores, he encontrado ésta macro, pero me exporta la hoja a otro libro,
Sub Exportar_Hojas()
On Error Resume Next
Application.ScreenUpdating = False
Dim iname As Variant
Dim iname2 As Variant
Dim Hoja As Variant
Dim d As Variant
Hoja = ActiveSheet.Name
iname = ActiveWorkbook.Name
Workbooks.Add
iname2 = ActiveWorkbook.Name
Windows(iname).Activate
Cells.Copy
Windows(iname2).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
For Each d In ActiveSheet.Shapes
If Left(d.Name, 5) <> "Chart" Then
d.Delete
End If
Next
ActiveWindow.DisplayGridlines = False
Range("A1").Select
Application.CutCopyMode = False
MsgBox "Esta hoja << " & Hoja & " >> fue exportada a un nuevo libro...", vbInformation, "inocampo"
Windows(iname).Activate
Range("A1").Select
Windows(iname2).Activate
End Sub
¿Qué debo cambiar para que me cree una hoja nueva y en esa sea en la que la exporte?
Gracias.