Disponibilize um arquivo modelo

Se for so para o cursor para na primeria linha vazia dentro deste intervalo vc pode fazer assim

Range("B51").End(xlUp).Select
ActiveCell.Offset(1, 0).Select

..

Guima,
Para saber qual é a última linha conforme você citou, supondo que se trata da Plano, utilize o código abaixo:

Sub LocalizarUltimaLinha
     Dim ÚltimaLinha As Long
     ÚltimaLinha = Sheets ("Plan1").Cells (Cells.Rows.Conta, 2).End (XluP).Row
End Sub

Valeu pela ajuda Wagner !

To quase lá agora... Vou postar o modelo que fiz, pois talvez você, o Prudêncio ou outra pessoa tenha uma sugestão melhor que a minha.

[]'s