Experimente:

Private Sub btncadastro_Click()
 Dim LR As Long
  LR = Cells(Rows.Count, 1).End(3).Row + 1
  Range("B" & LR).Value = Me.txtid.Value

 ...

  Esta linha do seu código original ~~~> Range("B2").Value = Me.txtid.Value

  foi substituída por esta, no código acima ~~~> Range("B" & LR).Value = Me.txtid.Value

  Repita para as demais colunas (C, D, E, ...)

Boa tarde @osvaldomp, não funcionou o codigo enviado. O Id cadastrado não aparece na planilha e o nome cadastrado continua sobrescrevendo na primeira linha.

Postado por: @betito

O Id cadastrado não aparece na planilha ...

Eu não havia considerado isso pois imaginei que você soubesse como resolver. No arquivo anexado o ID do Form será inserido na coluna A.

 

... e o nome cadastrado continua sobrescrevendo na primeira linha.

Não sei o que você fez aí, pois a alteração que eu sugeri antes insere os dados do Form na primeira linha vazia abaixo dos dados existentes. Veja no arquivo anexado.

A propósito, verifique a inserção dos dados do Form na coluna K, eu mantive o que está no seu código original.

bom dia,

 Valeu Osvaldomp, agora deu certo. Tinha colocado no evento errado. Obrigado pela ajuda.