VBA to Transform and format data

I need to format an excel file. Currently the formatting in the excel file is: Timestamp, Data1, Data2. I need help creating a VBA code to loop the timestamp in rows, and transform the Data 1 and Data 2 from columns to rows, while matching the time stamp.

I had a very large excel file, so to shorten it up, i cut down the column to 3 per data set( they are highlighted in green and blue), but originally i have 24 columns for data1 and Data 2

On the sheet1 of the attached excel file is what the data looks like
On the sheet2 of the attached excel file is what i want the data to look like