Macro for organizing data into worksheets

[robert2290]

Hello,

I am in need of a macro that organizes data into separate worksheets. Basically what I have is thousands of rows of data that are all comprised of both numbers and letters. Every few lines, a value named "Project" will appear. What I want is for each time the word "Project" appears in the 3rd column, the following happen:
-A new sheet is created that is named the last 4 digits of column 4
-All of the rows between "project" and the next time "project" appears to be copied into the new sheet

The Data is organized in the following way:

   1        2        3                                 4
Number	Level	Description	              Name
1	          01	Project	            110002235
2	          01	A	                    110002235
3	          01	1	
4	          01	G	
5	          01	D	
6	          01	I	                    110002235
7	          01	44	
8	          01	WD	
9	          01	Project	            110006933
10	          01	P	                    110006933
11	          02	Docter	
12	          03	D	
13	          03	QE	
14               03	O	
15	          03	QL	
16	          03	P	
17	          03	J	
18	          04	2	
19	          04	6	
20	          04	WWW    	             110006933
21	          04	Project	             110007877
22	          04	l	
23	          04	k	
24	          04	m

(Couldn't get the tag format to look better)
Any help or suggestions would be greatly appreciated.

 

[guerillaunit]

You don't need to post the actual data. Just a dummy workbook with the same setup

 

[robert2290]

http://www.filehosting.org/file/details/323202/Book1.xlsm

 

[robert2290]

Any idea why this code runs on his computer and not on mine?