Dim wiersz As Integer
Dim licznik As Integer
wiersz = Arkusz1.Cells(1, 10)
wiersz = wiersz + 1
If ((TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox4.Text = "") Or (TextBox5.Text = "")) Then
MsgBox ("Wprowadz dane")
Else
Arkusz1.Cells(wiersz, 1) = TextBox1
Arkusz1.Cells(wiersz, 2) = TextBox2
Arkusz1.Cells(wiersz, 3) = TextBox3
Arkusz1.Cells(wiersz, 4) = TextBox4
Arkusz1.Cells(wiersz, 5) = TextBox5

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Arkusz1.Cells(1, 10) = wiersz
End If