Transpose Multiple Columns Into Rows Based On Repeats

I need to transpose a three column worksheet with thousands of rows containing repeats based on the value in Column A (between 2 and 11 consecutive repeats), into rows with no repeats, and the values from the repeated rows into new columns. Column A has a unique numeric value corresponding to the repeated rows. Column B has 1 of 11 values and Column C has 1 of 4 values.

The worksheet looks like this:

1 abc x
1 def y
2 ghi x
2 abc n
2 lmn x
2 def z
2 jkl y

I need to make it look like this:

1 abc x def y
2 ghi x abc n lmn x def z jkl y

I tried using the following code, but it dropped all the values from column C:

Sub kTest()
Dim a, i As Long, w(), k(), n As Long
Dim dic As Object, ws As Worksheet, s As String

Set dic = CreateObject("scripting.dictionary")
dic.comparemode = vbTextCompare
With Sheets("sheet1")
a = . Range("a2:b" & .Range("a" & Rows.Count).End(xlUp).Row)
End With

I am attaching a workbook " Book 1" that has the results from the above macro in the first worksheet "Final Report", the origninal data "orig data", and the format I need to get the data into "needed data".