This works brilliantly - its so quick! Thank you!

Just a couple of questions..

What does the turn extras on and off do?

If I wanted to change the location of the list on the summary sheet from column C to D would it just be this part I need to change?
lLastRow = shSummary.Cells(shSummary.Rows.Count, "C").End(xlUp).Row
AND this maybe?
ActiveSheet.Range("B2").Value = shSummary.Cells(i, 3).Value
Paul