Trying to add a change to a VBA marco

[justinwb]

Good afternoon

this post is relating to another post
https://www.excelforum.com/excel-for...-best-way.html Which has since been closed 01-26-2018
as we where able to get a sheet working

I have been using this sheet for the passed month and now 3 different departments now use it and its working great
I have tried to read and learn from the VBA not having much luck


The problem I am finding is I would like to add 1 column on the Pick order sheet
I am trying to add Delivery Name From picking Column M to the Pick order Column G
and not having much luck I can see I'm missing some thing in the code just cant work out which bit it is

I changed the lines of code that I could work out

With Worksheets(cShPickOrder)
    .Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous
    .Range("A1").Resize(, 7) = [{"Truck ID"    ,"Load No" ,"Pickup Time" ,"Order ID"    ,"Min Status",  "Max Status",   "Delivery Name"}]
 End With

Which added Delivery Name

Then I looked at the arr and added arr(i, 13) to both which caused the sheet to debug

Set dict = CreateObject("scripting.dictionary")
 With dict
    For i = 1 To UBound(arr)
        If Not .exists(Trim$(arr(i, 3))) Then
            ReDim w(0)
            w(0) = Array(arr(i, 1), arr(i, 6), arr(i, 7), arr(i, 13))
        Else
            w = .Item(Trim$(arr(i, 3)))
            ReDim Preserve w(UBound(w) + 1)
            w(UBound(w)) = Array(arr(i, 1), arr(i, 6), arr(i, 7), arr(i, 13))
        End If
        .Item(Trim$(arr(i, 3))) = w
    Next

then after rereading

changed

With Worksheets(cShpicking)
    arr = .Range("A2", .Cells(Rows.Count, "M").End(xlUp))
 End With

This still leaves the new column Blank but does not debug the sheet any more

I have tried to play around with other parts of the code and everything I have tried places it in to a debug state

I have attached the excel sheet from the other Post also

Any help would be great
JustinwB