Sub Feedmaster01()
'
' Feedmaster01 Macro
'
' Keyboard Shortcut: Ctrl+Shift+F
'
Windows("Feedmaster#.xls").Activate
Range("D8:T8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
Sheets("NA01").Select
Range("E5").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Windows("Feedmaster#.xls").Activate
Range("D9:T9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
Sheets("NA02").Select
Range("E5").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Windows("Feedmaster#.xls").Activate
Range("D10:T10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
Sheets("NA03").Select
Range("E5").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Windows("Feedmaster#.xls").Activate
Range("D10:T10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
Sheets("NA03").Select
Range("E5").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Windows("Feedmaster#.xls").Activate
Range("D11:T11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
Sheets("NA04").Select
Range("E5").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Guys, I used to copy paste a data from one file to another but the code always say error in that specific area.
Selection.End(xlDown).Offset(1, 0).Select
Is that because I merge the column in E2:E4 di BUKU BESAR SQUARE CAGE 2022?, I already try to make the code to E2, but still didn't run.
There is a way to run the code without change my data format?
Thanks
Bookmarks