Table generation

Hi,

(Excel)
I'am trying to program a program which generates a summary table of raw data in another worksheet.

The raw worksheets contains information concerning staff clocking.

for example:

Code:

Name Date In Date Out Delta Hours Absence Hours Mister X 01/06/09 01/06/09 2 Mister X 02/06/09 01/06/09 2 Mister X 03/06/09 01/06/09 2 ... Mister X 30/06/09 30/06/09 8 Mister Y 01/06/09 01/06/09 2 ...

The raw data table contains over 9000 rows, for all staff members. Each day has it's own row.

On the recap timesheet I would like to create a recap table:

Name 01/06/09 02/06/09 03/06/09 ...
Mister X 2 2 0
Mister Y 2

I created following code, however it doesn't seems to work.
WS= recap worksheet
WB.Worksheets(2)= raw data worksheet.
The program is ran from an ms access form

Code:

Dim jRow As Integer For iRow = 2 To WS.Range("A" & WS.Rows.Count).End(xlUp).Row Step 1 For iColumns = 2 To Daycount Step 1 For jRow = 3 To WB.Worksheets(2).Range("A" & WB.Worksheets(2).Rows.Count).End(xlUp).Row Step 1 If WB.Worksheets(2).Range("A" & jRow).Value = WS.Range("A" & iRow).Value Then WS.Cells(iRow, iColumns).Value = WB.Worksheets(2).Range("N" & jRow).Value End If Next Next