copy rows with activecell value and insert rows after activecell

Hy guys.. as the title says I am trying to build a macro that will help me copy the rows from one sheet in which there are values equal to the active cell and then insert those rows under the active cells row.
So far i got

Please Login or Register  to view this content.

Any help will be much appreciated.