Michiel - I copied and pasted your code (XL 2007) and got an error
message (Variable not defined) at:
lngLastSectionRow = ActiveCell.row

Which version are you using?

I have had some redim statements allowed without a dim in earlier
versions, which 2007 picked up.

Doug