Boa noite!!

Tente isso

Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Dim cControl As Control

Set ws = Worksheets("Resultados")

irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Range("C" & irow) = TextBox1.Value
.Range("D" & irow) = TextBox2.Value
.Range("E" & irow) = TextBox3.Value
.Range("F" & irow) = TextBox4.Value
.Range("G" & irow) = TextBox5.Value
.Range("H" & irow) = TextBox6.Value
.Range("I" & irow) = TextBox7.Value
.Range("J" & irow) = TextBox8.Value
.Range("K" & irow) = TextBox9.Value
.Range("L" & irow) = TextBox10.Value
.Range("M" & irow) = TextBox11.Value
.Range("N" & irow) = TextBox12.Value
.Range("O" & irow) = TextBox13.Value
.Range("P" & irow) = TextBox14.Value
.Range("Q" & irow) = TextBox15.Value
.Range("R" & irow) = TextBox16.Value
End With
'Limpa as Textbox's simultanemente
    For Each cControl In Me.Controls
        If cControl.Name Like "Text*" Then cControl = vbNullString
    Next
Msgbox "Os dados foram gravados com sucesso!"
End Sub

Boa noite alexandre,

Consegui fazer várias pesquisas aqui...

Só estou com dificuldades agora para formatar os números digitados na textbox.

Queria que quando digitasse o número "1" aparecesse "01"
Porém pelo formatação que fiz eu não consigo digitar número acima de "10" já que eu travei a textbox em duas casas...
Pode me ajudar?

Meu código de gravar ficou assim:

Private Sub CommandButton1_Click()

Dim UltimaLinha As Integer

UltimaLinha = Sheets("RESULTADOS").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Row

If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" _
    And TextBox7 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" And TextBox11 <> "" And TextBox12 <> "" _
        And TextBox13 <> "" And TextBox14 <> "" And TextBox15 <> "" And TextBox16 <> "" Then

Sheets("RESULTADOS").Cells(UltimaLinha, 3).Value = TextBox1.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 4).Value = TextBox2.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 5).Value = TextBox3.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 6).Value = TextBox4.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 7).Value = TextBox5.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 8).Value = TextBox6.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 9).Value = TextBox7.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 10).Value = TextBox8.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 11).Value = TextBox9.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 12).Value = TextBox10.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 13).Value = TextBox11.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 14).Value = TextBox12.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 15).Value = TextBox13.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 16).Value = TextBox14.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 17).Value = TextBox15.Value
Sheets("RESULTADOS").Cells(UltimaLinha, 18).Value = TextBox16.Value

Unload Loterias

MsgBox "Dados gravados com sucesso!", vbInformation, "Loterias - BrUnOaFs"

Else

MsgBox "Preencha todos os campos!", vbCritical, "Loterias - BrUnOaFs"

End If

End Sub

Bom dia!!

Na sua primeira postagem você não relatou isso, pediu para salvar os dados, assim eu respondi, por favor click na mãozinha!!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Na primeira postagem eu não tinha chegado nessa parte que queria. Referente ao seu código já agradeci.

Referente a formatação do textbox como falei,

Antes de abrir tópicos eu pesquiso aqui e no google.

Eu coloco "TextBox2 = Format(TextBox2, "00")" eu não consigo digitar número de duas casas decimais porque travei a textbox em duas casas.

Já consegui...

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    TextBox2 = Format(TextBox2, "00")
    
End Sub