"Tom Ogilvy" wrote in
:

If it is always going to be A to D and start in Row 2, why cite A4 to
E20 in your original post?

Nonetheless,

set rng = Range(Range("A2"),Range(A21).End(xlup)).Resize(,4)


Because I lost track of my example. Should have been A to E as indicated in
original post. Thanks