filling a table depending on column heading
 

Hi,

Can you help me with the code below?
I'm trying to fill a status taken from column b and put it in a table
in between two time values. the first time value is c.offset(0,1) and
the second is c.offset(0,2). In the table the times are held in row
1. The status will be sick or holiday etc, if the person is at work
they have a numeric duty code hence the isnumeric check. Once the
status has been filled to the time window, the next "c" in the range
is checked.

For Each c In Sheets("Staff Monday").Range("B2:B3")
isDuty = IsNumeric(c.Value)
If isDuty = False Then
Status = c.Value
For Each r In Range(c.Offset(0, 5), c.Offset(0, 148))
If Cells(1, r.Column).Value = c.Offset(0, 1) Then
r.Value = Status
r.Select
Do Until Cells(1, r.Column).Value = c.Offset(0, 2).Value
r.Offset(0, MyOffset).Value = Status
MyOffset = MyOffset + 1
Loop
End If

regards,
Matt
Next r
End If
Next c