Stupid little thing...

[Raikiri]

I was just wondering if anyone could give me hand with a macro (I know)

Sub saleschartnew()
'
' saleschartnew Macro
' Macro recorded 19/04/2007 by Network Services
'

'
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("G3").Select
    Selection.Copy
    Sheets("Monthly Sales Chart").Select
    Range("E10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Sheets("Entry form").Select
    Range("C13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Monthly Sales Chart").Select
    Range("F10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry form").Select
    Range("E20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Monthly Sales Chart").Select
    Range("G10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

I need it to move down a cell each time data is pasted using the macro in Excel. Thanks for any help (P.S it is sort of work, and I have tried it myself to no avail...)