Private Sub CommandButton1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim i As Single
Dim j As Single
Dim k As Single
Dim l As Single
Dim Row As Long
Dim g As Integer

a = CStr(TextBox1.Text)
b = CStr(TextBox3.Text)
c = CStr(TextBox5.Text)
i = CStr(TextBox2.Text)
j = CStr(TextBox4.Text)
k = CStr(TextBox6.Text)
TextBox7.Text = d
TextBox7.Text = a + b + c
TextBox8.Text = l
TextBox8.Text = i + j + k


Row = 2


Do Until Worksheets("list1").Range("B" & Row) = ""
Row = Row + 1
Loop



Worksheets("list1").Range("B" & Row) = TextBox1.Text

Worksheets("list1").Range("C" & Row) = TextBox2.Text
Worksheets("list1").Range("B" & Row + 1) = TextBox3.Text
Worksheets("list1").Range("C" & Row + 1) = TextBox4.Text
Worksheets("list1").Range("B" & Row + 2) = TextBox5.Text
Worksheets("list1").Range("C" & Row + 2) = TextBox6.Text
Worksheets("list1").Range("A" & Row) = TextBox9.Text
MsgBox "zapisano !", vbOKOnly
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub



В случая трябва стойността от TextBox9.Text да се запише в активната клетка . Ето областта “B23:AF23”,тоест първата активна клетка ще е "B23" след това "B24" и така нататък...