Excel 2007 : Macro to merge columns A,B,C,D,E into 1 column with a twist!

I need to make 2 lists as new sheets: a 'P' and a 'M' list, categorized by P or M in column 'I'. Pretty much I need to macro to go from this:

A B C D E DESCRIPTION QTY P/M SHRINK
G03A8 MAIN 1 M 0%
G03S2 LS 1 M 0%
G03S1 BASKET 1 M
G03C078 BASKET PD 1 P
G03C079 BASKET MD 1 M
(Table 1)

to:


M LIST DESCRIPTION QTY P/M SHRINK
G03A8 MAIN 1 M 5%
G03S2 LS 1 M 10%
G03S1 BASKET 1 M 15%
G03C079 BASKET MD 1 M 25%
(Table 2)
and


P LIST DESCRIPTION QTY P/M SHRINK
G03C078 BASKET PD 1 P 20%
(Table 3)


So Table 1 will be on Sheet 1, and I'd like Sheet 2 to have list 'M', and Sheet 3 to be have list 'P'