you should be able to replace this line of your code:

[vba]Set rngSource = Worksheets("Detail").Range("A7:C13")
[/vba]

with either Mickersons or mine.