VBA Code is copying a single cell only. Please spot the error for me.

I have spent all day today to work out why my code is not working. I have got help from other site, but would keen to know why my own code is not working. I am sure the expert would be able to spot it. Although, I have three question on this code, for now I need to find why my code is not working.

This code works

Please Login or Register  to view this content.

My code is not too different from the above, but only copies one row. Please spot the error for me.

Please Login or Register  to view this content.

Thanks Martin! Please find attached
If you run module 1, it copies the two rows with date values, but with my code(module 3) , it only copies one row.

Martin,
I think the error may be on this line.

Please Login or Register  to view this content.

When I stepped over each cell, I can see the code picked up the right rows, but for some reason, it is overwriting the copied rows with the new one. As the are only two rows with dates value, the reason that I only see one row copied is because the code overwritten the previous row. So please help me correcting this line

You will also need to tweak the line you indicated in your post #4:

Please Login or Register  to view this content.

Leigth and Rollis!
Yes, I spotted the error my self, but it was too late here to post a repy.
The set object was easy to spot from the errro message on VBA, but

Please Login or Register  to view this content.

was a bit tricky. It was overwriting all copied values in to A4, although, I want it to go in to next empty cell.
Thanks for your help and suggestions! I valued any person's contribution as positive.