Transfer data with Horizontal headings to sheet with vertical headings

Hello Gurus

I have data with headings which are 1, 2, 3, thus headings are numbers. The data under headings is in strings.

In sheet1 I have database as follows

Row1=====1======2=====3
Row2====data====data===data
Row3====data====data===data
Row4====data====data===data
and so on

I have records in sheet2 that I want to transfer to sheet1. In sheet2, the headings are in ColumnA and data is all in columnB as shown below.
Column1 ==== Column2
==0========data===
==0========data===
==1========data===
==0========data===
==2========data===
==3========data===
==0========data===
==0========data===
==1========data===
==0========data===
==2========data===
==3========data===
==1========data===
==2========data===
==0========data===
==3========data===
and so on

Note that there are some 0 headings that are not needed to be imported.

Is it possible for a macro to check columnA and (skipping any 0s) transfer all other data to related fields in Sheet1 at the bottom?