Resetting destination range

Hi all, I have written a macro which searches through a range which contains dates and copies related data to a destination on another sheet.
My difficulty is that up to three ranges of data may fall within my search range and when I copy them they overwrite each other as my code is not resetting the destination to the next blank cell in the destination column.
Here is my code:

Please Login or Register  to view this content.

I would appreciate if someone could point out where I am going wrong.

Regards,

54ed

Please Login or Register  to view this content.