Selecting Multiple Rows & Columns

Hi All

I am Currently using the below code to select my data, which is then copied into other worksheets

ActiveSheet.Range("$A$1:$M$" & ActiveSheet.Cells(1, 1).End(xlDown).Row).Select

however up until now the number of columns has stayed the same, but now the number of columns has started to vary.

I have tried to change the code so that it selects all but the last Column in the worksheet, but I have only managed to get to work for the 1 row. how do I get it to select all the rows?

ActiveSheet.Range(Range("A1"), Range("A1").End(xlToRight).Offset(0, -1)).Select

thanks in advance

colin

Hi thanks for the response

however i managed to Solve it myself by combining the two codes

thanks

ActiveSheet.Range("$A$1:$A$" & ActiveSheet.Cells(1, 1).End(xlDown).Row, Range("A1").End(xlToRight).Offset(0, -1)).Select