Excel VisualBasic Script

Sub SelectCurrentRegion()
    ActiveCell.CurrentRegion.Select
End Sub