Arbitrary points: Split single column into multiple columns

Hello! I am new to Excel VBA and need major help for my code.

Please refer to my picture and the excel sheet data below as reference.

GIVEN:
A 4-column list of data points.
There are an arbitrary number of sets, defined by an existing number in column A, followed by blank cells in A but "x,y,z" points in B, C, D.
Each set contains an arbitrary amount of points.

OBJECTIVE:
I'd like to parse the single columns into multiple columns, but each column contains an arbitrary number of points.

The picture provided shows what I'd like to do, please look at that for a clearer picture.

PROBLEM:
My code is not working, it only took 2 cells and placed it to the side.
Is there a problem with the loop? I can't seem to figure it out...

Please help! Thank you, much appreciated!

Please Login or Register  to view this content.

ColumnMove.png

Is this what you wanted?

Please Login or Register  to view this content.

Thank you so much! This worked perfectly. I did do some tweaks to clean the data up.
Used cut instead of copy and offset(-1,0) to grab the values in "a" column.