Sub UpdateClientDetailWGQ() Dim Wb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim Arr As Variant Dim Brr As Variant Dim dData As Object Dim dRow As Object Dim Key As String Dim OneKey Set dData = CreateObject("Scripting.Dictionary") Set d…