What might be wrong with the following code?

Sub Macro7()
Sheets(1).Columns("A:A").Select
Range("A1").Activate
Range(Selection, Selection.End(xlUp)).Select
End Sub

The code remains to be with complete column A:A selected instead of
selecting only the filled up cells.

All your help shall be appreciated.

--
Best Regards,

Faraz