|First, you have told us what you "want" and what you would "like", but you never really asked for our help. Since we're all volunteers here doing this work for free, it's just a bit more polite to actually ask for assitance with a "Please" and perhaps a "Thank You".|
That said...you can't really "move" the data around within the second list itself, but you can copy it to or from someplace else and end up with same result.
In others words you can't go directly from:
without an interim step.
The following code will first move your second list to the right by four columns so it has room to place the rearranged list next to your original one. You can delete the original table later, either manually or by adding a single line of code to the macro
Make sure you try this on a back-up copy of your workbook in case something goes terribly wrong.
Dim c, nxtRow
'Insert 4 columns to make room
'Look for each Ticket No in Column A
For nxtRow = 2 To 5
Set c = .Find(Sheets(1).Range("A" & nxtRow), lookat:=xlWhole)
'If found, place it and its associated data in Columns E:H
If Not c Is Nothing Then
Sheets(1).Range("E" & nxtRow) = c
Sheets(1).Range("F" & nxtRow) = c.Offset(0, 1)
Sheets(1).Range("G" & nxtRow) = c.Offset(0, 2)
Sheets(1).Range("H" & nxtRow) = c.Offset(0, 3)