Boa tarde,

Note que no seu código no botão 'Cadastrar' a planilha que vai receber é a Plan1 ou seja, no seu caso a 'Menu'.
Você tem que especificar que os valores irão para a planilha 'Cadastro'.

Teste:

Private Sub bt_cadastrar_Click()

linha = Sheets("CADASTRO").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

Sheets("CADASTRO").Cells(linha, 1).Value = Me.TextBox1.Text
Sheets("CADASTRO").Cells(linha, 2).Value = Me.TextBox2.Text
Sheets("CADASTRO").Cells(linha, 3).Value = Me.TextBox3.Text

Me.TextBox1.Text = Empty
Me.TextBox2.Text = Empty
Me.TextBox3.Text = Empty

registro = Sheets("CADASTRO").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row - 2
'lbl_registro.Caption = registro

mensagem = MsgBox("Dados cadastrados com sucesso", vbInformation, ":: Cadastro ::")

End Sub

Bruno,

Muito obrigado , ainda estou apreendendo, fiquei meia hora olhando para esse codigo e não consegui descobrir o que era.
Valeu