Good idea! I'd forgotten about CountA. But you need to use

Set myRng = .Range("D1", .Range("D65536").End(xlUp))

because

Set myRng = .Range("d1", .Range("d1").End(xlDown))

will stop at the first empty cell in Column D. I just tried it.

Regards,
Wes