salvando novo registro

estou construindo um formulário para cadastro de pacientes . só que ao inserir um novo paciente na planilha ele(os dados não estão sendo inseridos na próxima linha vazia, e sim ocupa aleatoriamente 7 ou 10 linhas adiante.
como resolver isso?
abaixo estão os comandos usados.
meu email é =- josesale@gmail.com
Private Sub SALVAR_Click()

totalregistro = Worksheets("plan1").UsedRange.Rows.Count + 1
With Worksheets("PLAN1")
.Cells(totalregistro, 1) = RGP
.Cells(totalregistro, 2) = NOME
.Cells(totalregistro, 3) = ENDEREÇO
.Cells(totalregistro, 4) = BAIRRO
.Cells(totalregistro, 5) = CIDADE
.Cells(totalregistro, 6) = nascimento
.Cells(totalregistro, 7) = DIAGNOSTICO
.Cells(totalregistro, = OBS
End With
MsgBox "GRAVADO COM SUCESSO"

RGP = ""
NOME = ""
ENDEREÇO = ""
BAIRRO = ""
CIDADE = ""
nscimento = ""
DIAGNOSTICO = ""
OBS = ""
localizar = ""


End Sub

Boa tarde!!

Tem mandar seu arquivo modelo?

Caso sim, deposite-o em site gratuito como sendspace e nos mande o link!

Att