Copy and Paste Updating HELP needed

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 HFP73L
'
' 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