PDA

View Full Version : Excel Macro not working properly (missing data pasted using macro)


daisiroi
01-08-2016, 02:16 PM
Good Day!

I'm new at using/making Macros in Excel and I'm trying to learn as much as I can so I can apply it in my own Excel documents. I was hoping someone can help me determine what is wrong with the macro I just made.
I'm working on a tracker which will need to be updated on a daily basis, which will mean I need to copy an amount of data from a specific sheet (sheet3) and paste it on another sheet. (sheet 2) (I need to rearrange the data so I need to copy+paste it into a different sheet) This sheet where I pasted the data (sheet 2) will be used as a reference sheet for a vlookup formula which will display parts of this data into a main sheet (sheet 1). As I said, This data that will be copied (the one in sheet 3) will be updated manually on a daily basis. the purpose is to get the new data and again paste in the reference sheet (sheet 2), beside the first data. I was able to create macros for these for 6 days, (6 macros, assigned to keyboard shortcuts. The macros are all working but the problem is, there are parts of the data from day2 macro up to day 6 macro that are not pasted on the area specified. all the other data from the same days are copied perfectly. I can attach a copy of the tracker if anyone who can help will need it for clarification. feel free to ask questions should my explanation come out as vague. I'll appreciate any suggestions or tips to make this thing work. Thank you!
Aussiebear
01-08-2016, 03:33 PM
Please post your macros
daisiroi
01-08-2016, 05:17 PM
I have 6 macros in total, the first one is working fine, here it is

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
Range("A1").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-33
Range("A2:E43").Select
Range("E43").Activate
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
Range("A43").Select
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
Range("Y2:AC43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
Range("A85").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-30
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 43
Range("AW2:BA43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=39
Range("A127").Select
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 51
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 56
ActiveWindow.SmallScroll Down:=-27
Range("BI2:BL43").Select
ActiveWindow.SmallScroll Down:=-27
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 64
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 66
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 69
Range("BU2:BY43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Range("A169").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 72
ActiveWindow.ScrollColumn = 73
ActiveWindow.ScrollColumn = 74
ActiveWindow.ScrollColumn = 75
ActiveWindow.ScrollColumn = 76
ActiveWindow.ScrollColumn = 77
ActiveWindow.ScrollColumn = 78
ActiveWindow.ScrollColumn = 79
ActiveWindow.ScrollColumn = 80
ActiveWindow.ScrollColumn = 81
ActiveWindow.ScrollColumn = 82
ActiveWindow.ScrollColumn = 83
ActiveWindow.ScrollColumn = 84
ActiveWindow.ScrollColumn = 85
ActiveWindow.ScrollColumn = 86
ActiveWindow.ScrollColumn = 87
ActiveWindow.ScrollColumn = 88
ActiveWindow.ScrollColumn = 89
ActiveWindow.ScrollColumn = 90
ActiveWindow.ScrollColumn = 91
ActiveWindow.ScrollColumn = 92
Range("CS2:CW43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=9
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Range("A211").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-30
ActiveWindow.ScrollColumn = 93
ActiveWindow.ScrollColumn = 94
ActiveWindow.ScrollColumn = 95
ActiveWindow.ScrollColumn = 96
ActiveWindow.ScrollColumn = 97
ActiveWindow.ScrollColumn = 98
ActiveWindow.ScrollColumn = 99
ActiveWindow.ScrollColumn = 100
ActiveWindow.ScrollColumn = 101
ActiveWindow.ScrollColumn = 102
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 104
ActiveWindow.ScrollColumn = 105
ActiveWindow.ScrollColumn = 106
ActiveWindow.ScrollColumn = 107
ActiveWindow.ScrollColumn = 108
ActiveWindow.ScrollColumn = 109
ActiveWindow.ScrollColumn = 110
ActiveWindow.ScrollColumn = 111
ActiveWindow.ScrollColumn = 112
ActiveWindow.ScrollColumn = 113
Range("DQ2:DU43").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-18
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=33
Range("A253").Select
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 114
ActiveWindow.ScrollColumn = 115
ActiveWindow.ScrollColumn = 116
ActiveWindow.ScrollColumn = 117
ActiveWindow.ScrollColumn = 118
ActiveWindow.ScrollColumn = 119
ActiveWindow.ScrollColumn = 120
ActiveWindow.ScrollColumn = 121
ActiveWindow.ScrollColumn = 122
ActiveWindow.ScrollColumn = 123
ActiveWindow.ScrollColumn = 124
ActiveWindow.ScrollColumn = 125
ActiveWindow.ScrollColumn = 126
ActiveWindow.ScrollColumn = 127
ActiveWindow.ScrollColumn = 128
ActiveWindow.ScrollColumn = 129
ActiveWindow.ScrollColumn = 130
ActiveWindow.ScrollColumn = 131
ActiveWindow.ScrollColumn = 132
ActiveWindow.ScrollColumn = 133
ActiveWindow.ScrollColumn = 134
ActiveWindow.ScrollColumn = 135
ActiveWindow.ScrollColumn = 136
ActiveWindow.ScrollColumn = 137
ActiveWindow.ScrollColumn = 138
ActiveWindow.ScrollColumn = 139
ActiveWindow.ScrollColumn = 140
Range("EO2:ES43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("A295").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-33
ActiveWindow.ScrollColumn = 141
ActiveWindow.ScrollColumn = 142
ActiveWindow.ScrollColumn = 143
ActiveWindow.ScrollColumn = 144
ActiveWindow.ScrollColumn = 145
ActiveWindow.ScrollColumn = 146
ActiveWindow.ScrollColumn = 147
ActiveWindow.ScrollColumn = 148
ActiveWindow.ScrollColumn = 149
ActiveWindow.ScrollColumn = 150
ActiveWindow.ScrollColumn = 151
ActiveWindow.ScrollColumn = 152
ActiveWindow.ScrollColumn = 153
ActiveWindow.ScrollColumn = 154
ActiveWindow.ScrollColumn = 155
ActiveWindow.ScrollColumn = 156
ActiveWindow.ScrollColumn = 157
ActiveWindow.ScrollColumn = 158
ActiveWindow.ScrollColumn = 159
ActiveWindow.ScrollColumn = 160
ActiveWindow.ScrollColumn = 161
ActiveWindow.ScrollColumn = 162
ActiveWindow.ScrollColumn = 163
Range("FM2:FQ30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=18
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-36
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-15
Sheets("Abay ref").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+W
'
Sheets("ABAY compre paste").Select
Range("A2:E43").Select
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.Zoom = 115
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.Zoom = 100
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
Range("G43").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
Range("Y2:AC26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Range("G68").Select
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
Range("AW2:BA26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=9
Range("G84").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 64
Range("BU2:BY24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=6
Range("G122").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=33
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 72
ActiveWindow.ScrollColumn = 73
ActiveWindow.ScrollColumn = 74
ActiveWindow.ScrollColumn = 75
ActiveWindow.ScrollColumn = 76
ActiveWindow.ScrollColumn = 77
ActiveWindow.ScrollColumn = 78
ActiveWindow.ScrollColumn = 79
ActiveWindow.ScrollColumn = 80
ActiveWindow.ScrollColumn = 81
ActiveWindow.ScrollColumn = 82
ActiveWindow.ScrollColumn = 83
ActiveWindow.ScrollColumn = 84
ActiveWindow.ScrollColumn = 85
ActiveWindow.ScrollColumn = 86
ActiveWindow.ScrollColumn = 87
ActiveWindow.ScrollColumn = 88
ActiveWindow.ScrollColumn = 89
Range("CS2:CW26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
Range("G159").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 90
ActiveWindow.ScrollColumn = 91
ActiveWindow.ScrollColumn = 92
ActiveWindow.ScrollColumn = 93
ActiveWindow.ScrollColumn = 95
ActiveWindow.ScrollColumn = 96
ActiveWindow.ScrollColumn = 98
ActiveWindow.ScrollColumn = 99
ActiveWindow.ScrollColumn = 100
ActiveWindow.ScrollColumn = 101
ActiveWindow.ScrollColumn = 102
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 104
ActiveWindow.ScrollColumn = 105
ActiveWindow.ScrollColumn = 106
ActiveWindow.ScrollColumn = 105
ActiveWindow.ScrollColumn = 104
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 102
ActiveWindow.ScrollColumn = 101
ActiveWindow.ScrollColumn = 100
ActiveWindow.ScrollColumn = 101
ActiveWindow.ScrollColumn = 102
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 104
ActiveWindow.ScrollColumn = 105
ActiveWindow.ScrollColumn = 106
ActiveWindow.ScrollColumn = 107
ActiveWindow.ScrollColumn = 108
ActiveWindow.ScrollColumn = 109
ActiveWindow.ScrollColumn = 111
ActiveWindow.ScrollColumn = 112
ActiveWindow.ScrollColumn = 113
ActiveWindow.ScrollColumn = 114
Range("DQ2:DU26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=18
Range("G193").Select
ActiveSheet.Paste
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 115
ActiveWindow.ScrollColumn = 116
ActiveWindow.ScrollColumn = 117
ActiveWindow.ScrollColumn = 118
ActiveWindow.ScrollColumn = 119
ActiveWindow.ScrollColumn = 120
ActiveWindow.ScrollColumn = 121
ActiveWindow.ScrollColumn = 122
ActiveWindow.ScrollColumn = 123
ActiveWindow.ScrollColumn = 124
ActiveWindow.ScrollColumn = 125
ActiveWindow.ScrollColumn = 126
ActiveWindow.ScrollColumn = 127
ActiveWindow.ScrollColumn = 128
ActiveWindow.ScrollColumn = 129
ActiveWindow.ScrollColumn = 130
ActiveWindow.ScrollColumn = 131
ActiveWindow.ScrollColumn = 132
ActiveWindow.ScrollColumn = 133
ActiveWindow.ScrollColumn = 134
ActiveWindow.ScrollColumn = 135
ActiveWindow.ScrollColumn = 136
ActiveWindow.ScrollColumn = 137
ActiveWindow.ScrollColumn = 138
Range("EO2:ES26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=18
Range("G230").Select
ActiveSheet.Paste
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 140
ActiveWindow.ScrollColumn = 141
ActiveWindow.ScrollColumn = 142
ActiveWindow.ScrollColumn = 143
ActiveWindow.ScrollColumn = 144
ActiveWindow.ScrollColumn = 145
ActiveWindow.ScrollColumn = 146
ActiveWindow.ScrollColumn = 147
ActiveWindow.ScrollColumn = 148
ActiveWindow.ScrollColumn = 149
ActiveWindow.ScrollColumn = 150
ActiveWindow.ScrollColumn = 151
ActiveWindow.ScrollColumn = 152
ActiveWindow.ScrollColumn = 153
ActiveWindow.ScrollColumn = 154
ActiveWindow.ScrollColumn = 155
ActiveWindow.ScrollColumn = 156
ActiveWindow.ScrollColumn = 157
ActiveWindow.ScrollColumn = 158
ActiveWindow.ScrollColumn = 159
ActiveWindow.ScrollColumn = 160
ActiveWindow.ScrollColumn = 161
ActiveWindow.ScrollColumn = 162
ActiveWindow.ScrollColumn = 163
Range("FM2:FQ30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=33
Range("G268").Select
ActiveSheet.Paste
End Sub
Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+Shift+E
'
Range("A2:D43").Select
Selection.Copy
Sheets("Abay ref").Select
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Range("M43").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
Range("Y2:AC43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Range("M85").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-27
ActiveWindow.SmallScroll ToRight:=24
Range("AW2:BA43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=45
Range("M127").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-36
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 51
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 64
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 66
Range("BU2:BY43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=39
Range("M169").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-27
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 72
ActiveWindow.ScrollColumn = 73
ActiveWindow.ScrollColumn = 74
ActiveWindow.ScrollColumn = 75
ActiveWindow.ScrollColumn = 76
ActiveWindow.ScrollColumn = 77
ActiveWindow.ScrollColumn = 78
ActiveWindow.ScrollColumn = 79
ActiveWindow.ScrollColumn = 80
ActiveWindow.ScrollColumn = 81
ActiveWindow.ScrollColumn = 82
ActiveWindow.ScrollColumn = 83
ActiveWindow.ScrollColumn = 84
ActiveWindow.ScrollColumn = 85
ActiveWindow.ScrollColumn = 86
ActiveWindow.ScrollColumn = 87
ActiveWindow.ScrollColumn = 88
ActiveWindow.ScrollColumn = 89
ActiveWindow.ScrollColumn = 90
Range("CS2:CW43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Range("M211").Select
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 91
ActiveWindow.ScrollColumn = 93
ActiveWindow.ScrollColumn = 94
ActiveWindow.ScrollColumn = 95
ActiveWindow.ScrollColumn = 96
ActiveWindow.ScrollColumn = 97
ActiveWindow.ScrollColumn = 98
ActiveWindow.ScrollColumn = 99
ActiveWindow.ScrollColumn = 101
ActiveWindow.ScrollColumn = 102
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 104
ActiveWindow.ScrollColumn = 105
ActiveWindow.ScrollColumn = 106
ActiveWindow.ScrollColumn = 107
ActiveWindow.ScrollColumn = 108
ActiveWindow.SmallScroll Down:=-21
Range("DQ2:DU43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=39
Range("M253").Select
Sheets("ABAY compre paste").Select
ActiveWindow.ScrollColumn = 109
ActiveWindow.ScrollColumn = 110
ActiveWindow.ScrollColumn = 111
ActiveWindow.ScrollColumn = 112
ActiveWindow.ScrollColumn = 113
ActiveWindow.ScrollColumn = 114
ActiveWindow.ScrollColumn = 115
ActiveWindow.ScrollColumn = 116
ActiveWindow.ScrollColumn = 117
ActiveWindow.ScrollColumn = 118
ActiveWindow.ScrollColumn = 119
ActiveWindow.ScrollColumn = 120
ActiveWindow.ScrollColumn = 121
ActiveWindow.ScrollColumn = 122
ActiveWindow.ScrollColumn = 123
ActiveWindow.ScrollColumn = 124
ActiveWindow.ScrollColumn = 125
ActiveWindow.SmallScroll Down:=-36
ActiveWindow.ScrollColumn = 126
ActiveWindow.ScrollColumn = 127
ActiveWindow.ScrollColumn = 128
ActiveWindow.ScrollColumn = 129
ActiveWindow.ScrollColumn = 130
ActiveWindow.ScrollColumn = 131
ActiveWindow.ScrollColumn = 132
ActiveWindow.ScrollColumn = 133
ActiveWindow.ScrollColumn = 134
ActiveWindow.ScrollColumn = 135
ActiveWindow.ScrollColumn = 136
ActiveWindow.ScrollColumn = 137
ActiveWindow.ScrollColumn = 138
ActiveWindow.ScrollColumn = 139
Range("EO2:ES43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Range("M295").Select
Sheets("ABAY compre paste").Select
ActiveWindow.SmallScroll Down:=-36
ActiveWindow.ScrollColumn = 140
ActiveWindow.ScrollColumn = 141
ActiveWindow.ScrollColumn = 142
ActiveWindow.ScrollColumn = 143
ActiveWindow.ScrollColumn = 144
ActiveWindow.ScrollColumn = 145
ActiveWindow.ScrollColumn = 146
ActiveWindow.ScrollColumn = 147
ActiveWindow.ScrollColumn = 148
ActiveWindow.ScrollColumn = 150
ActiveWindow.ScrollColumn = 151
ActiveWindow.ScrollColumn = 152
ActiveWindow.ScrollColumn = 153
ActiveWindow.ScrollColumn = 155
ActiveWindow.ScrollColumn = 156
ActiveWindow.ScrollColumn = 157
ActiveWindow.ScrollColumn = 158
ActiveWindow.ScrollColumn = 159
ActiveWindow.ScrollColumn = 160
ActiveWindow.ScrollColumn = 161
Range("FM2:FQ43").Select
ActiveWindow.SmallScroll Down:=-27
Application.CutCopyMode = False
Selection.Copy
Sheets("Abay ref").Select
ActiveSheet.Paste
End Sub




I don't know what's wrong, I did the same thing in recording the 2nd macro as I did in the 1st one. somehow there are parts of the data that is not showing after the macro has been ran. It pastes the other data, just some parts are missing. I also tried doing the recording again, saving it, and then making sure to check the outcome. but once I try to run it after running the 1st macro (which is doing perfectly fine) the data it pasted isn't complete. Thank you for taking time to check on this. I'm all out of ideas. :(