Определить диапазон листа с данными — Visual Basic(Бейсик)

iUsedRangeAddress = ActiveSheet.UsedRange.Address 
MsgBox iUsedRangeAddress 
 
Set iUsedRange = ActiveSheet.UsedRange 
MsgBox iUsedRange.Address