Macro - Process Next Record

[oldgit99]

Okay this has to be easy but…….

I have a spreadsheet that is basically set out like this.
A B C D
1 Date 02/07/2007
2 Processed Case No
3 02/07/2007 1
4 2
5 3
6 4
7 5
8 6
9 7
10 8

I am trying to write a macro that will pick up the date from a fixed cell D1 and paste it into the particular case that I am working with then move the active cell to the next case in the list. I have been using the Record Macro facility which works fine in that it always goes to cell D1 and selects the date but instead of pasting it to the cell adjacent to my starting point it pastes it to Cell A3 and then makes Cell B4 the active cell (exactly what I did when I recorded the Macro). I need the Marco to remember which Cell was active before I run the Macro and to paste the date in the cell immediately to the left of it, then make the cell below where I started the active cell.

This must be a common process – My failed code is as below - Can anyone out with what it should be please.

========================
Sub Macro5()
'
' Macro5 Macro
' Macro recorded 02/07/2007 by theoldgit
'
' Keyboard Shortcut: Ctrl+k
'
Range("D1").Select
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
Range("B4").Select
End Sub

===================================

Thanks

[VBA Noob]

Please read forum rules below and then wrap your code

VBA Noob