In the code above that worked, try changing this:

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

to this:

[vba]Set rngSource = Worksheets("Detail").Range("A:C")
[/vba]

disregard my last suggestion.