Sub tickets()
Dim i As Integer
Dim j As Long
Dim n As Long
Dim txt As String
Dim ar As Variant
Dim arr As Variant
Dim ws1 As Worksheet, ws2 As Worksheet
ReDim arr(1 To 1000, 1 To 26)
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
ar = ws1.[a3].CurrentRegion ' Data starts in row 3
With CreateObject("scripting.dictionary")
For i = 1 To UBound(ar, 1)
txt = ar(i, 1)
If Not .Exists(txt) Then
n = n + 1
.Add txt, n
For j = 1 To 16 'Ticket info + First Waiting time
arr(n, j) = ar(i, j)
Next j
ii = 17
Else
For j = 12 To 16 ' 2nd / 3rd waiting times
arr(.Item(txt), ii) = ar(i, j)
ii = ii + 1
Next j
End If
Next
ws2.[A2].Resize(n, 26) = arr
End With
End Sub
Output on Sheet2
Bookmarks