Sub blah()
'Set originalActiveCell = ActiveCell
Set newSelection = ActiveCell
For Each are In Selection.Areas
  Set newSelection = Union(newSelection, are, are.Offset(1))
Next are
newSelection.Select
'originalActiveCell.Activate
End Sub
Uncomment the commented-out lines if you want to retain the original active cell active.