I'm usually pretty adept at Excel but god help me I cannot figure this one out. Here is my macro "Magic":

http://pastebin.com/kQs4vQAU

But I need help. What I need to do is make another macro that will:

0. Delete sheets "Sheet2" and "Sheet3"

1. Look in column "A" for the word "To:"

1. Look to the right of that cell (it'll be in column B) and compare THAT text value to the next instance of "To:"'s adjacent cell. If they do NOT match, go to initial "To:"'s section and copy all rows between blank row BEFORE the cell that contains "AGENT STATEMENT" all the way down from "To:" up to and including the row that contains a cell (located) in "A" which starts with "Thank you for choosing" (there may be some other text after the word choosing). Then paste that in a new worksheet. If it DOES match, however, continue on down to the next "To:" in column "A" until it doesn't find a match. When that happens go to initial "To:"'s section and copy all rows between blank row BEFORE the cell that contains "AGENT STATEMENT" all the way down from "To:" up to and including the row that contains the last cell (located) in "A" which starts with "Thank you for choosing" that fell in the matched section (there may be some other text after the word choosing). Then paste it into a new worksheet.

4. Repeat above step until there is no longer a "To:" to look for.

5. In each of these worksheets copy all of the text ABOVE the first cell that contains "Order" and PASTE it into cell K1.

3. Finally, delete "Sheet1".

Also, in the pastebin how can I update "Worksheets("Sheet1").Columns("A:Z").AutoFit" so that it applies to the sheet it's currently working on as it loops through all the sheets using above?