"Lazzzx" wrote ...

I'm sorry, that I did not get your idea in the first place. Three out of
four is not that bad after all :-) Now I know what you mean. Try this line
and see if it is working:

Worksheets("Summary").Range("rnSummaryData").Resiz e(iNoArrayElements).Offset(-iNoArrayElements).Rows.Group


Hi,

That's exactly what I am looking for. Thank you very much for all your
help!

Best regards,
Kevin