Your welcome.
Note that if you go with the divider Column method the that column can be hidden in the data. You would need to add a bit of code right at the end to hide it again in the Changes sheet.
Code
.Columns(lCol).Resize(, UBound(Hdrs) + 1).ColumnWidth = 12
.Columns(lCol - 1).Hidden = 1
End With
End Sub
Also delete the "On Error Resume Next" that you added.