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