The mentioning of the 'Group' code I provided, was just the idea of using that set up (perhaps replacing ".Group" with ".Copy" or ".Paste") was how I was originally going about this when I tried to figure it out for myself. But I knew I needed to edit the StartRow and EndRow to be Cells, or something. Of course your way of simply using Select Case works just as well.
Now the code you provide in your first reply this morning, you wrote:
Code:
Select Case ows.Cells(jr, 7).Value
Now, we naturally have to set what 'ows' is exactly. So what is ows referring to?