Thanks!

I could not run the macro,below code shows as run time error '1004' Application-defined or object -defined error.


Dest.Resize(UBound(d, 1), UBound(d, 2)).Value2 = d