Worksheets("Sheet1").Range("A1", Cells(Range("A65000").End(xlUp).Row, Range("XX1").End(xlToLeft).Column)).Select
this allows the range to grow and get smaller