How To Copy From One Cell And Paste On Different Sheet With Offset

using VBA and most of what i know has come from reading through blogs. I'm trying to copy 5 separate pieces of data from one row on our Payroll sheet and paste this in to another sheet call master dump.

The issue that i am having is that the code i have written keeps coming up with a run time error 1004 at the line "a.Select"

What i need the code to do is this: Copy the data from cell A4 and paste this on to another worksheet in to row cell b2, date worked in to d2, pay code in ot f2, hours in to h2 and the cost centre in to ad. all on the same row. i then need it to move on to the next team member (in this case A5) and repeat until there is no emp#. once the monday is done it will need to move onto Tuesday.

Code below.

Sub payroll_data()
'
' Payroll_data_MON Macro
Dim a As Range, b As Range, c As Range, d As Range, e As Range, i As Range, j As Range, k As Range, l As Range, m As Range
Set a = Range("A4")
Set b = Range("I4")
Set c = Range("G4")
Set d = Range("H4")

[code]....