Obtenha o número da linha VBA

Msgbox ActiveCell.Row
Amused Armadillo