Macro: select entire range with empty columns in between

[nachousa]

Im trying to select everything in a sheet starting with "A2"
Here is my code:

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

This works fine except sometimes there are empty columns in the middle of the data so it doesnt select everything. it selects up to that empty column. I want a code that will select everything up to the last column with something in it.

Any Ideas?