Select the Used Range (the entire part of the active worksheet you are actually using)

Sub SelectRange()
ActiveSheet.UsedRange.Select
End Sub