Range selection code

Try this...

Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row - 1).Select

Awesome, this works perfectly! You're a lifesaver, thanks!