Something like this, If that dont work cut down your file and see if it will upload

.Range("m2").Resize(UBound(a), UBound(a, 2)) = a