Если вам нужно узнать адрес активной ячейки, то вот несколько примеров как это можно сделать:
Координаты активной ячейки с помощью ActiveCell.Address
Sub ActiveCellAddress()
MsgBox ActiveCell.Address
End Sub
Адрес активной ячейки с помощью ActiveCell.AddressLocal
Sub ActivecellAddressLocal()
MsgBox ActiveCell.AddressLocal
End Sub
Номер строки активной ячейки
Sub ActiveCellRow()
MsgBox ActiveCell.Row
End Sub
Номер столбца активной ячейки
Sub ActiveCellColumn()
MsgBox ActiveCell.Column
End Sub
Буква столбца активной ячейки
Sub ActiveCellColumnLetter()
MsgBox Split(ActiveCell.Address, "$")(1)
End Sub 