Fabiosp,

Boa tarde!

Fiz da seguinte maneira: Quando você carregar o formulário, automaticamente o código verifica qual é o último número registrado na coluna D, adiciona 1 e carrega na Textbox4. Setei a propriedade Enabled da TextBox4 para False para evitar que o usuário comum modifique o valor de controle que, no caso, é preenchido automaticamente pelo sistema assim que o formulário é carregado na memória.

Por fim, na rotina que está associada ao botão Gravar eu não fiz nada! Do jeito que está lá, quando você clicar em Gravar o que estiver na caixa TexBox4 vai ser gravado na planilha. Obviamente, se carregar o formulário e não clicar em gravar, o número da última linha da coluna D não será modificado pois quando se carrega o valor na TextBox4, assim que o formulário é inicializado, o mesmo está apenas na memória.

Boa Tarde Wagner,
Tudo bem?
Obrigado pela ajuda!
Deixa eu ver se entendi.
Você acrescentou apenas este código e o restante das rotinas não foram alteradas?

 Private Sub UserForm_Initialize()
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 4).End(xlUp).Row
    TextBox4.Text = Range("D" & UltimaLinha).Value + 1
    SpinButton1.Enabled = False
    Label_Registros_Contador.Caption = ""
    
End Sub

Sim. Só isso:

    Dim UltimaLinha As Long
   
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 4).End(xlUp).Row
    TextBox4.Text = Range("D" & UltimaLinha).Value + 1

Obrigado Wagner,
Passei toda manhã quebrando a cabeça com isso e você em segundos resolveu...
Quem sabe sabe...rs

Novamente agradeço a ajuda!
Resolvido!