Macro Help! Copy/Paste Highlighted Row

Hey guys,

I was wondering if someone could help me out with a macro that involves copying and pasting entire rows from 1 sheet to a new sheet. The only rows I want however are the ones that are highlighted (.Interior.ColorIndex = 6).

Please help. I appreciate the time and effort.