選択されているセルのアドレス・行・列番号 を調べる

   StartRow = LoopArea.Cells(1).Row
   StartColumn = LoopArea.Cells(1).Column
   
   Max_Row = LoopArea.Cells(LoopArea.Count).Row
   Max_Column = LoopArea.Cells(LoopArea.Count).Column

ネタ元

• http://www.k1simplify.com/vba/tipsleaf/leaf240.html