[TABLE]
<colgroup><col style="mso-width-source:userset;mso-width-alt:33901;width:695pt" width="927"> </colgroup><tbody>[TR]
[TD="class: xl65, width: 927"]' Macro1 Macro[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"]'[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"][/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"]'[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("Z13:Z15").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.Copy[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("B14").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("D14").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] ActiveWindow.ScrollColumn = 1[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("B13:D15").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.Copy[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("N13:N15").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.Copy[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("J14").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("T13:T15").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.Copy[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Range("P14").Select[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD]
[/TR]
[TR]
[TD="class: xl65, width: 927"]End Sub[/TD]
[/TR]
</tbody>[/TABLE]