Use
Cells(Rows.count, "A").End(xlUp).EntireRow.Select
Use
Cells(Rows.count, "A").End(xlUp).EntireRow.Select
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber