Sorry sandam, my mistake, I didn't see the post, only the very big signature.
Sorry for that
It has to be the next row. I'll try to check if it's possible in your way (not that I doubt about the real VBA'ers

Euhm, when I compile it, it gives an error on this line
LastRow = Range("A65536").Row.End(xlUp)
with the notification for .Row: Invalid Qualifier

What to do?