Thank you. I see that now. I made the macro just by recording my actions.
Didn't even think about simplifying as you did. Thanks.

"Don Guillett" wrote:

> Nothing is jumping out at me cuz of all the trash. To get you started.
> ALL of this code can be changed from
> =======
> > Range("G7:G57").Select
> > Selection.Copy
> > ActiveWindow.ScrollRow = 27
> > ActiveWindow.ScrollRow = 26
> > ActiveWindow.ScrollRow = 25
> > ActiveWindow.ScrollRow = 24
> > ActiveWindow.ScrollRow = 23
> > ActiveWindow.ScrollRow = 21
> > ActiveWindow.ScrollRow = 20
> > ActiveWindow.ScrollRow = 18
> > ActiveWindow.ScrollRow = 16
> > ActiveWindow.ScrollRow = 15
> > ActiveWindow.ScrollRow = 14
> > ActiveWindow.ScrollRow = 12
> > ActiveWindow.ScrollRow = 11
> > ActiveWindow.ScrollRow = 9
> > ActiveWindow.ScrollRow = 7
> > ActiveWindow.ScrollRow = 5
> > ActiveWindow.ScrollRow = 4
> > ActiveWindow.ScrollRow = 3
> > ActiveWindow.ScrollRow = 2
> > ActiveWindow.ScrollRow = 1
> > Range("D7:D57").Select
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > Range("E7").Select
> > Application.CutCopyMode = False
> =======
> to
> Range("D7:D57").value= Range("G7:G57").value
> also
> range("k6").value=range("k5")
> works
> etc.etc
>
> Don Guillett
> SalesAid Software
> [email protected]
> "oscardwilde" <[email protected]> wrote in message
> news:[email protected]...
> >I have created macros that automate a fairly simple process on several
> > spreadsheets. There are three columns that are affected by the macro.
> > One
> > column is total of all previous month's expenses for a project, the next
> > is
> > the current month's expenses and the last column is total expenses to
> > date.
> > The macro simply copies the values from the total expenses to the previous
> > month's column and zeros the current month so that it is ready for the
> > next
> > month's expenses. The macros work great on my computer but do not always
> > perform the same way on other computers. Some fields it skips, others it
> > does not. The formatting and number of cells in each column are the same
> > and
> > do not change. I've checked the security settings and the versions of
> > Excel
> > are the same so why doesn't it do the same thing on two different
> > computers
> > that use everything else the same?
> >
> > Here's the code:
> >
> > Sub ZeroDraw()
> > '
> > ' ZeroDraw Macro
> > ' Macro recorded 8/26/2005 by Oscar
> > '
> > ' Keyboard Shortcut: Ctrl+d
> > '
> > Range("G7:G57").Select
> > Selection.Copy
> > ActiveWindow.ScrollRow = 27
> > ActiveWindow.ScrollRow = 26
> > ActiveWindow.ScrollRow = 25
> > ActiveWindow.ScrollRow = 24
> > ActiveWindow.ScrollRow = 23
> > ActiveWindow.ScrollRow = 21
> > ActiveWindow.ScrollRow = 20
> > ActiveWindow.ScrollRow = 18
> > ActiveWindow.ScrollRow = 16
> > ActiveWindow.ScrollRow = 15
> > ActiveWindow.ScrollRow = 14
> > ActiveWindow.ScrollRow = 12
> > ActiveWindow.ScrollRow = 11
> > ActiveWindow.ScrollRow = 9
> > ActiveWindow.ScrollRow = 7
> > ActiveWindow.ScrollRow = 5
> > ActiveWindow.ScrollRow = 4
> > ActiveWindow.ScrollRow = 3
> > ActiveWindow.ScrollRow = 2
> > ActiveWindow.ScrollRow = 1
> > Range("D7:D57").Select
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > Range("E7").Select
> > Application.CutCopyMode = False
> > ActiveCell.FormulaR1C1 = "0"
> > Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
> > Range("E7:E56").Select
> > ActiveWindow.ScrollRow = 21
> > ActiveWindow.ScrollRow = 20
> > ActiveWindow.ScrollRow = 18
> > ActiveWindow.ScrollRow = 16
> > ActiveWindow.ScrollRow = 14
> > ActiveWindow.ScrollRow = 13
> > ActiveWindow.ScrollRow = 11
> > ActiveWindow.ScrollRow = 8
> > ActiveWindow.ScrollRow = 4
> > ActiveWindow.ScrollRow = 1
> > Range("K5").Select
> > ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
> > Range("K5").Select
> > Selection.Copy
> > Range("K6").Select
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > Range("K5").Select
> > Application.CutCopyMode = False
> > Selection.ClearContents
> > Range("K6").Select
> > Selection.Cut
> > Range("C4").Select
> > ActiveSheet.Paste
> > With Selection
> > .HorizontalAlignment = xlLeft
> > .VerticalAlignment = xlBottom
> > .WrapText = False
> > .Orientation = 0
> > .AddIndent = False
> > .IndentLevel = 0
> > .ShrinkToFit = False
> > .ReadingOrder = xlContext
> > .MergeCells = False
> > End With
> > Range("B1").Select
> > End Sub
> >
>
>
>