Range.Top (Excel)

Retorna um valor que representa a distância, em pontos, da borda superior da linha 1 até a borda superior do intervalo.

Se o intervalo for descontínuo, a primeira área será usada. Se o intervalo tiver mais de uma linha de altura, a linha de cima (de numeração mais baixa) do intervalo será usada.

Dim lngTop As Long
lngTop = ActiveCell.Top