Range(Selection, Selection.End(xlDown)).Select goes to 65536 instead of last filled row

Any reason why you want to do the selection?

If you want to copy (maybe) the data, you do not need to select. If you want to copy from row 144 (or even a row which changes everytime), do this

dim lrow as long
lrow = worksheets("Sheet1").range("A" & rows.count).end(xlup).row
worksheets("Sheet1").range("A2:C" & lrow).copy