Attached is the results...It appears to be writing the same attribute throughout

Also after following...

With wksXL
.Cells(lRow, 1).Resize(UBound(vaDataOut) + 1, UBound(vaDataOut, 2) + 1) = vaDataOut
.Cells.EntireColumn.AutoFit
End With

It drops to the MsgBox Err.Number and give a "0 - Error Occurred in Excel App Process"