Sub SelectUsedColumn()
 Dim lngLZ As Long
 lngLZ = Worksheets("Sheet1").Range("A65536"). _
    End(xlUp).Row
 ' Select from A3 bis An
 Worksheets("Sheet1").Range(Cells(3, 1), _
    Cells(lngLZ, 1)).Select
End Sub