Macro needed to transpose data

Hi folks,

I am working with quite a messy spreadsheet containing raw data, which I need to format into a clean and usable format for other software programs. The spreadsheet is about 600 rows long and contains data points, grouped together in the same row, which need to be separated into different columns. I need a macro to be able to scan through the spreadsheet, transposing the data it finds in groups of 2 cells into separate columns, while ignoring all the random gaps in the spreadsheet. I have attached an example spreadsheet, which shows what my raw starting data looks like and the desired output.

Cheers