Macro to copy entire group of rows to another worksheet and another workbook

I have a spreadsheet with about 800 rows. In column D, there is a variety of numbers from 013 to 080. There could be anywhere from 2 to 100 rows to each number. Everytime the number changes in column D, I would like to copy that group of rows to either another tab or to another worksheet. So, Rows 1-5 have 013 and rows 6-20 have 018 in column D and rows 21-81, have 025 in column D. Is is possible to have it moves rows 6-20 to one worksheet and rows 21-81 to another worksheet and keep going until there is no more data?

It looks like this is doing exactly what I wanted, except it ommits some of the data and it appears when the same name is on there multiple times, it carries with it the data from only one of the lines. I looked at the code thinking I could figure out what was wrong but I couldn't. I have copied the macro into this workbook also along with some sample data, with names and numbers changed.

I really appreciate your help.

thanks so much!!!!!

Absolutely Perfect. Thanks so much.