Voce pode por exemplo "completar" o codigo do botaõ salvar, incluindo salvar em outra planilha tb

Private Sub CommandButton1_Click()
Dim lastRow As Long
'Ativar a primeira planilha
ThisWorkbook.Worksheets("banco de dados").Activate

    ' Verifica qual a ultima linha preenchida
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
        Cells(lastRow + 1, 1) = TextBox1.Text
        Cells(lastRow + 1, 2) = TextBox2.Text
        Cells(lastRow + 1, 3) = ComboBox1.Text
        Cells(lastRow + 1, 4) = ComboBox11.Text
        Cells(lastRow + 1, 5) = ComboBox2.Text
        Cells(lastRow + 1, 6) = TextBox3.Text
        Cells(lastRow + 1, 7) = TextBox4.Text
        Cells(lastRow + 1, 8) = TextBox11.Text
        Cells(lastRow + 1, 9) = TextBox10.Text
        Cells(lastRow + 1, 10) = ComboBox4.Text
        Cells(lastRow + 1, 11) = TextBox6.Text
        Cells(lastRow + 1, 12) = ComboBox5.Text
        Cells(lastRow + 1, 13) = TextBox7.Text
        Cells(lastRow + 1, 14) = ComboBox6.Text
        Cells(lastRow + 1, 15) = TextBox9.Text
        Cells(lastRow + 1, 16) = ComboBox7.Text
        Cells(lastRow + 1, 17) = ComboBox3.Text
        Cells(lastRow + 1, 18) = TextBox8.Text
        
'Ativar a Segunda planilha
    ThisWorkbook.Worksheets("A Prazo").Activate

' Verifica qual a ultima linha preenchida
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
' Aqui vão os dados(campos) a serem alocados em aprazo
        Cells(lastRow, 1) = TextBox1.Text
        Cells(lastRow, 2) = TextBox2.Text
        Cells(lastRow, 3) = ComboBox1.Text
        Cells(lastRow, 4) = ComboBox11.Text
'.....e outros que necessarios
   MsgBox "O registro  " & Me.ComboBox2 & " foi adicionado com sucesso!!!", 64, "Serviços Diarios"
        'Limpar as caixa de texto
        TextBox1.Value = Empty
        TextBox2.Value = Empty
        TextBox3.Value = Empty
        TextBox4.Value = Empty
        TextBox6.Value = Empty
        TextBox7.Value = Empty
        TextBox8.Value = Empty
        TextBox9.Value = Empty
        TextBox10.Value = Empty
        TextBox11.Value = Empty
        ComboBox1.Value = Empty
        ComboBox2.Value = Empty
        ComboBox3.Value = Empty
        ComboBox4.Value = Empty
        ComboBox5.Value = Empty
        ComboBox6.Value = Empty
        ComboBox7.Value = Empty
        ComboBox11.Value = Empty
        
        'Colocar o foco na primeira caixa de texto
        formserviçosdiarios.Hide
        
        Sheets("menu").Activate
        
End Sub

Caro Reinaldo, ja tinha tentado fazer isso, achei que era so colocar outro nome na linha...

ThisWorkbook.Worksheets("banco de dados").Activate
ThisWorkbook.Worksheets("a prazo").Activate

Mas so isso nao adiantou, posso ter cometido algum erro, pode apontar???

Ou melhor, como faço paa completar o codigo no botao salvar? que e exatamento o q eu gostaria.

O codigo que postei, testei e funciona, somente pode "ativar" a outra planilha, após completar o ciclo de dados na primeira planilha. Segue o exemplo.

Grande Reinaldo, fico muito agradecido.

Um grande abraço, so fica a pergunta, ja tinha tentando fazer isso colocando toda a chave no final da primeira rotina, e aqui que eu errei?, deveria ter colocado na ordem qq vc colocou, antes das chaves que zerao os campos?

Fabio,
Nesse modelo de atualização/manutenção, ao se "posicionar" em uma planilha faz-se todas as atualizações necessarias nela, então muda-se o foco para outra planilha e tambem faz-se as atualizações necessarias, e somente após essas atualizações e que se deve "limpar" os campos do formulario.

Perfeito Reinaldo, exatamente isso que percebi quando tentei antes da tua indicaçao, coloquei depois da açao limpar, com isso ele ate me dava o aviso de sucesso, mas na verdade com celulas limpas, show de bola, vivendo e aprendendo no planilhando.

Muito obrigado pela educaçao e explicaçao detalhada, para um leigo fica sempre mais facil entender os erros, nao que eu nao tente sozinho, so recorro a vcs quando mesmo pesquisando ou sozinho nao fui capaz.

Saudaçoes.