Copy Entire Excel Sheet to existing sheet?

[hipopony66]

I'm having some trouble trying to copy an entire worksheet from one workbook to a sheet that already exists in a different workbook. Can this be done? Here's my code:

Sub COPY_FROM_MainSched_TO_DoorSched()

Dim SourcePath, DestPath, SourceFile, DestFile As String

'set variables
SourcePath = "H:\schedule\"
DestPath = "H:\shared_tools\"
SourceFile = "Cabot, S.xls"
DestFile = "door_inventory.xls"

    Range("A1").Select
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=SourcePath & SourceFile  
    Sheets("LOG (2)").Select
    ActiveSheet.Copy
    Windows(DestFile).Activate
    Sheets("temporary").Activate
    ActiveSheet.Paste

   
End Sub

It seems my problem is that the sheet I'm trying to copy is not getting copied to the clipboard.

[RobDog888]

You can use the .Copy method of the sheet object.

Workbooks(1).Sheets("Sheet1").Copy After:=Workbooks(2).Sheets("Sheet3")