Problema para gravar os dados USEFORM

[Anderson Aragão]

E aí, galera! To com problema para gravar os dados no useform. O que tá acontecendo é que os dados digitados no formulário na encontra a linha de baixo, vai sempre para mesma linha, ou seja, vai substituindo o dado existente. Segue o código do comando gravar:

 

Private Sub cmdgravar_Click()
    If llinha = 0 Then
    llinha = validadores.Cells(validadores.Rows.Count, 1).End(xlUp).Row
       If llinha <> 4 Then
          llinha = llinha + 1
        
        End If
    End If
    
    lscadastrar llinha
    lslimpar
    
End Sub

[Alyson Ronnan Martins]

Bom dia @Anderson Aragão

Tenta colocar essa alteração:

llinha = validadores.Cells(validadores.Rows.Count, 1).End(xlUp).Row + 1