VBA

[KateKate]

Помогите с программкой на VBA. мне нужно что бы информация из TextBox1 и 2 вставлялась, в определенные столбцы, но что бы программа сама находила пустую ячейку в этом столбце. Программу написала, но работает корявенько, информацию вставляет не в 3 и 4 столбцы а в 1 и 2 , как это изменить до меня дойти не может.

Private Sub CommandButton1_Click()
Dim M(1 To 2) As Variant
Dim Obj As Object
Dim N As Integer, I As Integer, x As Integer
Set Obj = Worksheets("Клиент").Columns(3).Cells.CurrentRegion
N = Obj.Rows.Count + 1
With UserForm2
M(1) = TextBox1.Text
M(2) = TextBox2.Text
End With
If Len(M(1)) = 0 Or Len(M(2)) = 0 Then
MsgBox "Заполнить все поля!", vbCritical, Title:="Ошибка ввода"
Exit Sub
End If
For I = 1 To 2
Worksheets("Клиент").Cells(N, I).Value = M(I)
Next I
With UserForm2
.TextBox1.Text = ""
.TextBox2.Text = ""
.TextBox1.SetFocus
End With
End Sub

[KateKate]

билась над ней часа 3, и вдруг осенило)
если кому интересно вот этот код работает правильно:

Private Sub CommandButton1_Click()
Dim M(3 To 4) As Variant
Dim Obj As Object
Dim N As Integer, I As Integer, x As Integer
Set Obj = Worksheets("Клиент").Columns(3).Cells.CurrentRegion
N = Obj.Rows.Count + 1
With UserForm2
M(3) = TextBox1.Text
M(4) = TextBox2.Text
End With
If Len(M(3)) = 0 Or Len(M(4)) = 0 Then
MsgBox "Заполнить все поля!", vbCritical, Title:="Ошибка ввода"
Exit Sub
End If
For I = 3 To 4
Worksheets("Клиент").Cells(N, I).Value = M(I)
Next I
With UserForm2
.TextBox1.Text = ""
.TextBox2.Text = ""
.TextBox1.SetFocus
End With
End Sub