Yes [aK = Application.WorksheetFunction.Transpose(rK.Value) ]
i have 7000 rows of data in col G, and over 400,000 rows of data in col K.
I run code in box 18 no get run time error 13 type mismatch. Then when I debug it highlights the aK = Application.WorksheetFunction.Transpose(rK.Value)