Código VBA, alguém pode me ajudar por favor?

[wellington Barbosa]

Gostsaria de uma ajuda.
Criei um formulário, salvando os dados  em uma outra planilha, não consigo aplicar nenhuma formula com esses dados nessa outra planilha.
usei esse código.

Por favor alguém pode me ajudar?

Private Sub Salvar_Click()
linha = 12

Do Until Sheets("dados").Cells(linha, 3) = ""
linha = linha + 1

Loop
Sheets("dados").Cells(linha, 1) = cadastro.DATA.Text
Sheets("dados").Cells(linha, 2) = cadastro.IDPESQ.Text
Sheets("dados").Cells(linha, 3) = cadastro.RGHC1.Text
Sheets("dados").Cells(linha, 4) = cadastro.NOME.Text
Sheets("dados").Cells(linha, 5) = cadastro.DNASC.Text
Sheets("dados").Cells(linha, 6) = cadastro.Combo_uf.Text
Sheets("dados").Cells(linha, 7) = cadastro.Combo_cidade.Text
Sheets("dados").Cells(linha, 8) = cadastro.Combo_uf1.Text
Sheets("dados").Cells(linha, 9) = cadastro.Combo_cidade1.Text
Sheets("dados").Cells(linha, 10) = cadastro.celular.Text
Sheets("dados").Cells(linha, 11) = cadastro.FIXO.Text
Sheets("dados").Cells(linha, 12) = cadastro.EMAIL.Text
Sheets("dados").Cells(linha, 13) = cadastro.NDEPESSOASNARES.Text
Sheets("dados").Cells(linha, 14) = cadastro.RACACOR.Text
Sheets("dados").Cells(linha, 15) = cadastro.GENEROSEXO.Text
Sheets("dados").Cells(linha, 16) = cadastro.OCUPACAO.Text
Sheets("dados").Cells(linha, 17) = cadastro.ANOSDEESTUDO.Text
Sheets("dados").Cells(linha, 18) = cadastro.q1.Text
Sheets("dados").Cells(linha, 19) = cadastro.q2.Text
Sheets("dados").Cells(linha, 20) = cadastro.q3.Text
Sheets("dados").Cells(linha, 21) = cadastro.q4.Text
Sheets("dados").Cells(linha, 22) = cadastro.q5.Text
Sheets("dados").Cells(linha, 23) = cadastro.q6.Text
Sheets("dados").Cells(linha, 24) = cadastro.q7.Text
Sheets("dados").Cells(linha, 25) = cadastro.q8.Text
Sheets("dados").Cells(linha, 26) = cadastro.q9.Text
Sheets("dados").Cells(linha, 27) = cadastro.q10.Text
Sheets("dados").Cells(linha, 28) = cadastro.q11.Text
Sheets("dados").Cells(linha, 29) = cadastro.q12.Text
Sheets("dados").Cells(linha, 30) = cadastro.q13.Text
Sheets("dados").Cells(linha, 31) = cadastro.q14.Text
Sheets("dados").Cells(linha, 32) = cadastro.q15.Text
Sheets("dados").Cells(linha, 33) = cadastro.q16.Text
Sheets("dados").Cells(linha, 34) = cadastro.q17.Text
Sheets("dados").Cells(linha, 35) = cadastro.q18.Text
Sheets("dados").Cells(linha, 36) = cadastro.q19.Text
Sheets("dados").Cells(linha, 37) = cadastro.q20.Text
Sheets("dados").Cells(linha, 38) = cadastro.q21.Text
Sheets("dados").Cells(linha, 39) = cadastro.q22.Text

Sheets("estatistica").Cells(linha, 5) = cadastro.q1.Text
Sheets("estatistica").Cells(linha, 6) = cadastro.q2.Text
Sheets("estatistica").Cells(linha, 7) = cadastro.q3.Text
Sheets("estatistica").Cells(linha, 6) = cadastro.q4.Text
Sheets("estatistica").Cells(linha, 7) = cadastro.q5.Text
Sheets("estatistica").Cells(linha, 8) = cadastro.q6.Text
Sheets("estatistica").Cells(linha, 9) = cadastro.q7.Text
Sheets("estatistica").Cells(linha, 10) = cadastro.q8.Text
Sheets("estatistica").Cells(linha, 11) = cadastro.q9.Text
Sheets("estatistica").Cells(linha, 12) = cadastro.q10.Text
Sheets("estatistica").Cells(linha, 13) = cadastro.q11.Text
Sheets("estatistica").Cells(linha, 14) = cadastro.q12.Text
Sheets("estatistica").Cells(linha, 15) = cadastro.q13.Text
Sheets("estatistica").Cells(linha, 16) = cadastro.q14.Text
Sheets("estatistica").Cells(linha, 17) = cadastro.q15.Text
Sheets("estatistica").Cells(linha, 18) = cadastro.q16.Text
Sheets("estatistica").Cells(linha, 19) = cadastro.q17.Text
Sheets("estatistica").Cells(linha, 20) = cadastro.q18.Text
Sheets("estatistica").Cells(linha, 21) = cadastro.q19.Text
Sheets("estatistica").Cells(linha, 22) = cadastro.q20.Text
Sheets("estatistica").Cells(linha, 23) = cadastro.q21.Text
Sheets("estatistica").Cells(linha, 24) = cadastro.q22.Text

If Trim(Me.RGHC1.Value) = "" Then
MsgBox "Por favor, preecha o RGHC,campo obrigatório.", vbExclamation, "Aviso"
Me.RGHC1.SetFocus
Exit Sub
End If

MsgBox "Paciente cadastrado com sucesso.", vb, "Aviso"

Unload cadastro
cadastro.Show

End Sub

[Alyson Ronnan Martins]

Boa noite @wellington Barbosa, não entendi o está procurando.
Esta querendo mudar a planilha que vai receber as informações do formulário?

@wellington Barbosa