La siguiente macro no me resulta

Expertos como hacer que esta macro copie la hoja 1 la pegue en la hoja y envíe la hoja 2 por correo

Public Sub copiahoja()
Sheets("hoja2").Copy
Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dia = Format(Date, "dd-mm-yyyy ")
tim = Format(Time(), " hh-mm-ss")
ext = ".xls"
nom = nom + " " + dia + tim & ".xls"
MsgBox "este es el nombnre del archivo: solicitud de remesas"" " & nom
Path = "d:\solicitud de remesas" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
ActiveWorkbook.Close
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("h7").Value
.CC = " "
.BCC = ""
.Subject = "Solicitud de Remesas Sucursal" + " " + Range("c6") + " " + "del" + " " + Str(Date)
.Body = "Buenas Tardes:" + Chr(13) + Chr(13) + "Adjunto envío a usted informe de la referencia" + Chr(13) + Chr(13) + "Saludos."
.attachments.Add "D:\solicitud de remesas" & nom
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWindow.Close
Application.Quit