Copy & paste ranges separated by blanks

Hi,

I require the VBA code for the following logic.
I have some data in Column A of Sheet1 with blank cells in between. Now find the range of data till we get blank, copy and paste that data in Column A of Sheet2, then leave all the blanks again find the range of data till we get another blank, copy and paste that data in Column B of Sheet2, repeat the same till we reach end of the Column A.
I attached the Gif file for better understanding.

Looking forward of the VBA script. If you send the code immediately that would be great help

Vijay

Is separated by just one blank:

Please Login or Register  to view this content.

Thank you very much, this helps a lot and saves a lot of time

Vijay