アクティブの行・列を取得

Dim COL As Long '　アクティブセルの列値
Dim ROW As Long '　アクティブセルの行値
ROW = ActiveCell.ROW '　現在の行を取得
COL = ActiveCell.Column '　現在の列を取得