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

Вариант I.

With Range("F5:J153") 
     iF_Address = .Item(1).Address 
     iL_Address = .Item(.Count).Address 
End With 
MsgBox "Адрес первой ячейки : " & iF_Address & _ 
vbCrLf & "Адрес последней ячейки : " & iL_Address

Вариант II.

With Range("B3:Q742") 
     iF_Address = .Cells(1).Address 
     iL_Address = .Cells(.Count).Address 
End With 
MsgBox "Адрес первой ячейки : " & iF_Address & _ 
vbCrLf & "Адрес последней ячейки : " & iL_Address