Copy selection by colour to another workbook

[durandal05]

I have this code:

Sub Macro2()
Selection.Copy Destination:=Sheets("Sheet2").Range("A1")
With Selection.Interior
    .ColorIndex = 50
    .Pattern = xlSolid
End With
End Sub

which works, copies selected cells, paste them to another workbook, and highlight the originals as a colour

What i'd like is code that selects the rows from the list automatically, in groups of ten
( i posted some pseudo code here but the mod deleted it )


i know one of you wizards could probably knock it out in 5 second flat!
thanks for any help