Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Range("A1:A8").Select
Sheets("Sheet2").Select
Range("A1:A10").Select
Selection.Copy
Windows("Workbook2.xlsx").Activate
Sheets("Sheet1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Workbook1.xlsx").Activate
Range("B1:B10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Workbook2.xlsx").Activate
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Workbook1.xlsx").Activate
Sheets("Sheet3").Select
Range("A1:A10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Workbook2.xlsx").Activate
Sheets("Sheet3").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Workbook1.xlsx").Activate
Range("B1:B10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Workbook2.xlsx").Activate
Sheets("Sheet4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bookmarks