Hi

Untested. Replace
Code:
d = .Range("a1").CurrentRegion
with

Code:
d = .Range("a1").CurrentRegion.resize(,19).value