Insert a new row when week ends / week starts?

Hi Guys,

I have a sheet with some results of a previous macro. They look like this:

08 Sep 2008 Scarborough
09 Sep 2008 Sheffield
09 Sep 2008 Leeds
10 Sep 2008 Leeds
10 Sep 2008 Sheffield
11 Sep 2008 Leeds
11 Sep 2008 Barnsley
12 Sep 2008 Leeds
15 Sep 2008 Scarborough
15 Sep 2008 Leeds
16 Sep 2008 Nottinghamshire
16 Sep 2008 Leeds
17 Sep 2008 Leeds
18 Sep 2008 Nottinghamshire

Now, the 8th of September is a Monday and so is 15th September.

How can I write a macro to add a row break (or 2) when the first week ends and the second week begins i.e. to produce this:

08 Sep 2008 Scarborough
09 Sep 2008 Sheffield
09 Sep 2008 Leeds
10 Sep 2008 Leeds
10 Sep 2008 Sheffield
11 Sep 2008 Leeds
11 Sep 2008 Barnsley
12 Sep 2008 Leeds


15 Sep 2008 Scarborough
15 Sep 2008 Leeds
16 Sep 2008 Nottinghamshire
16 Sep 2008 Leeds
17 Sep 2008 Leeds
18 Sep 2008 Nottinghamshire

Any help much appreciated!

dvent

I get an error message of:

"Compile Error:

Wrong number of arguments or invalid property assignment"

Originally Posted by VBA Noob

See example


VBA Noob

Thanks VBA NOOB. Thats just what I wanted!!

Actually, when I input more details e.g.

01 Sep 2008 Hull
01 Sep 2008 Calderdale
02 Sep 2008 Hull
03 Sep 2008 Hull
04 Sep 2008 Huddersfield
05 Sep 2008 Leeds
05 Sep 2008 Huddersfield
08 Sep 2008 Scarborough
09 Sep 2008 Sheffield
09 Sep 2008 Leeds
10 Sep 2008 Leeds
11 Sep 2008 Leeds
11 Sep 2008 Barnsley
12 Sep 2008 Leeds
15 Sep 2008 Scarborough
15 Sep 2008 Leeds
16 Sep 2008 Nottinghamshire
16 Sep 2008 Leeds
17 Sep 2008 Leeds
18 Sep 2008 Nottinghamshire
19 Sep 2008 Leeds
22 Sep 2008 Barnsley
22 Sep 2008 Leicester
25 Sep 2008 Nottinghamshire
29 Sep 2008 Sheffield
30 Sep 2008 Sheffield
30 Sep 2008 Leeds



I end up with:

01 Sep 2008 Hull
01 Sep 2008 Calderdale
02 Sep 2008 Hull
03 Sep 2008 Hull
04 Sep 2008 Huddersfield
05 Sep 2008 Leeds


05 Sep 2008 Huddersfield
08 Sep 2008 Scarborough
09 Sep 2008 Sheffield
09 Sep 2008 Leeds
10 Sep 2008 Leeds
11 Sep 2008 Leeds
11 Sep 2008 Barnsley
12 Sep 2008 Leeds


15 Sep 2008 Scarborough
15 Sep 2008 Leeds
16 Sep 2008 Nottinghamshire
16 Sep 2008 Leeds
17 Sep 2008 Leeds
18 Sep 2008 Nottinghamshire
19 Sep 2008 Leeds


22 Sep 2008 Barnsley
22 Sep 2008 Leicester


25 Sep 2008 Nottinghamshire
29 Sep 2008 Sheffield
30 Sep 2008 Sheffield
30 Sep 2008 Leeds


Not quite working as I though?!

I have amended my output slightly and have the following:

Day Date Project
Mon 01 Sep 2008 Hull
01 Sep 2008 Calderdale
Tue 02 Sep 2008 Hull
Wed 03 Sep 2008 Hull
Thu 04 Sep 2008 Huddersfield
Fri 05 Sep 2008 Manchester
05 Sep 2008 Huddersfield
Mon 08 Sep 2008 Scarborough
Tue 09 Sep 2008 Sheffield
09 Sep 2008 Manchester
Wed 10 Sep 2008 Leeds
Thu 11 Sep 2008 Leeds
11 Sep 2008 Barnsley
Fri 12 Sep 2008 Leeds
Mon 15 Sep 2008 Scarborough
15 Sep 2008 Leeds
Tue 16 Sep 2008 Nottinghamshire
16 Sep 2008 Leeds
Wed 17 Sep 2008 Leeds
Thu 18 Sep 2008 Nottinghamshire
Fri 19 Sep 2008 Leeds
Mon 22 Sep 2008 Barnsley
22 Sep 2008 Leeds
Thu 25 Sep 2008 Nottinghamshire
Mon 29 Sep 2008 Sheffield
Tue 30 Sep 2008 Sheffield
30 Sep 2008 Leeds


I now want to loop down column A and whenever it finds "Mon", insert a row before it. This should solve my problem.

Workbook attached if anyone can help!