Here in agonizing detail are the actions you could take. This code is definitely the long way to the solution, but you did say you wanted to see "all the actions taken to achieve it."
This code works just fine but it's darned inefficient. In real applications you could do the same thing with just a few lines of code. However, some new readers may find this code useful if they are getting accustomed to VBA, especially for the first time.
Purists look the other way please.
'''''''''''''''''''
'Prepare Excel for the import:
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
'First, see if you have the Workbook1 file open; if not then open it:
On Error GoTo b:
Windows("Workbook1.xls").Activate
'If you do not have the file open there will be an error and it will goto b:
GoTo c:
b:
ChDir "C:YourFilePath"
Workbooks.Open Filename:="C: YourFilePath Workbook1.xls"
'This will open the Workbook1 file
c:
'Now when we get to c: the file is open either way so we activate it:
Windows("Workbook1.xls").Activate
'Then select your worksheet...
Sheets("Sheet1").Select
'...then select all the cells in the sheet...
Cells.Select
'...and then copy the entire sheet's range onto the clipboard.
Selection.Copy
'Next, re-activate the Workbook2 file:
Windows("Workbook2.xls").Activate
'Then select the destination worksheet...
Sheets("Sheet2").Select
'...then select the entire sheet's range...
Cells.Select
'...and Paste Special Values from Workbook1's Sheet1 into Workbook2’s Sheet2:
Selection.PasteSpecial Paste:=xlValues
‘Go to A1, it seems like a nice place to set up shop
Range("A1").Select
‘Clear the clipboard
Application.CutCopyMode = False
'Close Workbook1
Windows("Workbook1.xls").Activate
ActiveWindow.Close
‘Return Excel to its original condition
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
''''''''''''''''''''''''''''