HELP with macro for copy and paste

[RedOctagon]

Hello,

Do anyone know how to write a macro so I can copy and paste certain
information and then for the next month do the next column over?


Ex.


book1
A B C D E
1 Acct. 1 10 0 0 0
2 Acct. 2 20 0 0 0
3 Acct. 3 30 0 0 0
4 Total =SUM(B1:B3) =SUM(C1:C3) =SUM(D13) =SUM(E1:E3)


book2
A B
1 20 30
2 30 40
3 40 50
4 90 120


book3
A
1 50
2 30
3 60
4 140


I would like to copy Book2 column A 1-3 to Book1 Column C 1-3.
1month later in time, I would like to copy Book2 Column B1-3 to Book1
Column D 1-3
2months later in time, I would like to copy Book3 Column A1-3 to Book1
Column E 1-3


Does anyone know a good way to do this and a way to update it every
month?
I can do it the first time, but how do I update?


Sub copypaste()
'
' copypaste Macro
' Macro recorded 10/13/2006 by Redoctagon
'
' Keyboard Shortcut: Ctrl+q
'
Windows("Book2").Activate
Range("A1:A3").Select
Selection.copy
Windows("Book1").Activate
Range("D3").Select
ActiveSheet.Paste
Windows("Book2").Activate
Range("A6:A9").Select
Application.CutCopyMode = False
Selection.copy
Windows("Book1").Activate
Range("D8").Select
ActiveSheet.Paste
End Sub