Dim i As Integer

Private Sub clear()
TextBox1.Text = ""
End Sub

Private Sub CommandButton1_Click()
Range("A1").Value = "Ãîðîä"
Range("B1").Value = "Ñòðàíà"
Range("C1").Value = "Äàòà íà÷àëà"
Range("D1").Value = "Äàòà îêîí÷àíèÿ"
Range("E1").Value = "Çîëîòûå ìåäàëè"
Range("F1").Value = "Âñåãî ñòðàí"
Range("A:A").ColumnWidth =  15 
Range("B:B").ColumnWidth =  15 
Range("C:C").ColumnWidth =  15 
Range("D:D").ColumnWidth =  15 
Range("E:E").ColumnWidth =  15 
Range("F:F").ColumnWidth =  15 
Worksheets("Ëèñò1").Activate
à = Application.WorksheetFunction.CountA(Range("A:A")) +  1 
Cells(à,  1 ) = TextBox1.Text
Cells(à,  2 ) = TextBox2.Text
Cells(à,  3 ) = TextBox3.Text
Cells(à,  4 ) = TextBox4.Text
Cells(à,  5 ) = TextBox5.Text
Cells(à,  6 ) = TextBox6.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Dim a( 20 ) As String
i =  1 
a(i) = TextBox1.Text
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
i = i +  1 
For i =  1  To  999 
If TextBox1.Text = Cells(i,  1 ) Then TextBox2 = Cells(i,  2 )
If TextBox1.Text = Cells(i,  1 ) Then TextBox3 = Cells(i,  3 )
If TextBox1.Text = Cells(i,  1 ) Then TextBox4 = Cells(i,  4 )
If TextBox1.Text = Cells(i,  1 ) Then TextBox5 = Cells(i,  5 )
If TextBox1.Text = Cells(i,  1 ) Then TextBox6 = Cells(i,  6 )
Next
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub