Veja se é isto:

Sub Numera_ColA_Relativo_ColB()
        'Declaramos as Variaveis
        Dim sNumeros
        Dim sLinsB
        Dim nLinsA
       
        'Iniciamos a Variavel com Numero 1
        sNumeros = 1
       
        'CONTAMOS OS ITENS NA COLUNA B PLAN1
        sLinsB = Sheets("plan1").Cells(Rows.Count, 2).End(xlUp).Row
       
        'Loop para preencher as Linhas Col A conforme Qde Coluna B
        'Inicia na Linha 5
        For nLinsA = 5 To sLinsB
            
            If Sheets("plan1").Range("B" & nLinsA) = "" Then
            
            Else
                Sheets("plan1").Range("A" & nLinsA) = sNumeros
                sNumeros = sNumeros + 1
            End If
        Next

    End Sub

[]s

Funcionou perfeitamente!!
Muito obrigado.

Só mais uma coisa, eu estou tentando fazer com que no final de tudo, ele seleciona todas as linhas preenchidas e organize-as, tipo quando seleciono as linhas e dou dois clicks.

O código está ficando assim,

Rows("5:5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows("5:38").EntireRow.AutoFit

Como que posso dizer para ele que eu quero autofit até onde tem coisas preenchidas, seria a numeração a "coisa" preenchida.

Range(Selection, Selection.End(xlDown)).EntireRow.AutoFit

Ou

Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.AutoFit

PS: não testado.

Funcionou esse aqui.

Rows("5:5").Select
    Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.AutoFit

Muito obrigado pela ajuda!!

Se entendi, não há necessidade de usar o Select, não precisamos selecionar, usamos a chamada direta para a ação desde que referenciado corretamente os endereços, neste caso a primeira linha e a última.

Nesta instrução capturamos a Última Linha preeenchida e armazenamos na Variável sLinsB:
sLinsB = Sheets("plan1").Cells(Rows.Count, 2).End(xlUp).Row

Então após o Next em vez de colocar tudo isto:
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("5:38").EntireRow.AutoFit

Troque POR:
Onde 5 é a linha inicial e "sLinsB" a Linha final
Rows("5" & ":" & sLinsB).EntireRow.AutoFit

[]s