Primeiramente, não utilize o usedrange, pois ele pode pegar as células formatadas, e não vai te dar a linha desejada.

Vá listando diretamente pelos nomes.

Também não quesqueça de especificar o que vc quer. Usar "cells(x, y)" refere-se à célula. usar "cells(x, y).value" refere-se ao que está na célula.

Tente, então, adaptar o código para algo assim:

With Sheets("ASSOCIADOS")
    totalregistro = .Cells(rowscount, 3).End(xlUp).Row + 1
    .Cells(totalregistro, 3).Value = nomeartistico.Value
    'restante das células
End With

MsgBox "se ajudou, por favor, clique na mãozinha como agradecimento."

'restante do código

obrigada, mas não deu certo :/
ele vai para o depurador

se tivesse postado uma planilha de exemplo com o codigo aplicado poderia ter uma resposta mas certeira

analisar um codigo já é dificil, imagina apenas olhando a imagem do que seria

claro que existe situações mais simples, ou que o chutômetro pode acertar a sequencia da mega sena

mas no geral é dificil chegar a uma conclusão sem a planilha e os codigos envolvidos

sei que as vezes esses caras são tão craques que parece até que eles são capazes de acertar oq estamos pensando

mas vc que fez a planilha sabe da dificuldade, mesmo tendo em mente oq se quer fazer e sabendo da estrutura deste o inicio
imagina vendo pela primeira vez e sem saber como começou ou onde tem que parar

(vira e volta eu tbm posto umas perguntas generica sem chance alguma de ser respondida)
"mas no caso eu sei do fato e nem espero a resposta"

é que eu nao tenho uma planilha de exemplo,
apenas a que eu estou fazendo em si...
mas posto ela mesma de qualquer forma.

Eu tinha cometido um erro de digitação.

Onde estava "rowscount", faltou um ponto "rows.count".

O código ficaria assim:

Private Sub salvar_Click()
With Sheets("ASSOCIADOS")
totalregistro = .Cells(Rows.Count, 3).End(xlUp).Row + 1
.Cells(totalregistro, 3).Value = nomeartistico.Value
.Cells(totalregistro, 4).Value = nomecompleto.Value
.Cells(totalregistro, 5).Value = celcasawhats.Value
.Cells(totalregistro, 6).Value = email.Value
.Cells(totalregistro, 7).Value = funcao.Value
.Cells(totalregistro, 8).Value = drt.Value
.Cells(totalregistro, 9).Value = rg.Value
.Cells(totalregistro, 10).Value = cpf.Value
.Cells(totalregistro, 11).Value = datanasc.Value
.Cells(totalregistro, 12).Value = pisnserieuf.Value
.Cells(totalregistro, 13).Value = endereco.Value
.Cells(totalregistro, 14).Value = cnh.Value
.Cells(totalregistro, 15).Value = estadocivil.Value
.Cells(totalregistro, 16).Value = dataassociacao.Value
.Cells(totalregistro, 17).Value = cidade.Value
End With
MsgBox "Gravado com Sucesso"

End Sub

E, por favor, lembre de clicar na mãozinha como agradecimento e de marcar o tópico como resolvido.

Abs