Preciso criar uma macro que avance para a linha seguinte na mesma coluna, selecione um intervalo de dados nessa linha, nomeie este intervalo e em seguida vá para a próxima linha e repita o processo. Após realizar esta tarefa em todas as linhas não vazias, que o cursor vá para a primeira linha vazia da respectiva coluna finalizando essa tarefa.
Segue o código que criei e que até o momento, faz isso apenas na primeira linha e, apesar de avançar para a próxima linha, não realiza a mesma tarefa ficando em loop infinito:

Sub Macro_Intervalo()
    Do
        ActiveSheet.Range(Cells(2, 3), Cells(2, 18)).Select
        Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:=False
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Loop While (ActiveCell <> Empty)
End Sub

Agradeço a quem se dispuser a me dar uma força,
Marco.