Заполнение формы в Excel-е

Private Sub CommandButton1_Click()
Dim A As Variant
po = Application.Sheets.Count
'b = ActiveSheet.Range("o2")
nam1 = ActiveSheet.Name
For i = 1 To po
If Sheets(i).Name = ComboBox1.Text Then
MsgBox "THESE MONTH ALRADY EXIST !!", vbOKOnly + vbInformation
GoTo 999
End If
Next i
 
 
A = ComboBox1.Text
ActiveSheet.Copy Before:=Sheets(po)
ActiveSheet.Name = A
Range("B4:H3000,K4:N3000,R4:R3000").Select
        Selection.ClearContents
    Range("B4").Select
For k = 4 To 2000
If Sheets(nam1).Range("o" & k) > 0 Then
For r = 4 To 2000
If ActiveSheet.Range("b" & r) = "" Then
Sheets(A).Range("b" & r) = Sheets(nam1).Range("b" & k)
End If
Next r
End If
Next k
 
999
End Sub
 
Private Sub UserForm_Activate()
UserForm5.Caption = "Artur"
For i = 1 To 12
Day = ActiveSheet.Range("aa" & i)
ComboBox1.AddItem Day
Next i
End Sub

Private Sub CommandButton2_Click()
Dim NUMER As Variant ‘номер счёт-фактуры
Dim AMSATIV As Variant’ дата счёт-фактуры
Dim KAZM As Variant’имя организации 
Dim ADR As Variant’адрес
Dim HVHH As Variant’ ИНН
Dim HH As Variant’Р/счёт
Dim BANK As Variant’банк
Dim TNOREN As Variant’директор
Dim GLXHASHV As Variant’Глю бухгалтер
Dim YNDUNEC As Variant’получатель
Dim VCHAR As Variant’вид оплаты
Dim HIMQN As Variant’ основание или номер доверенности
Dim HIMQANUN As Variant’ Ф.И.О доверенного лица
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
NUMER = TextBox10.Text
AMSATIV = TextBox11.Text
KAZM = ComboBox1.Text
ADR = TextBox1.Text
HVHH = TextBox2.Text
HH = TextBox3.Text
BANK = TextBox4.Text
TNOREN = TextBox12.Text
GLXHASHV = TextBox13.Text
VCHAR = ComboBox6.Text
HIMQN = TextBox14.Text
HIMQANUN = TextBox15.Text
YNDUNEC = TextBox16.Text
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.Sheets("start").Activate’заполняет базу т.е. количество счёт-фактур которые добавляются 
For d = 1 To 1000
If ActiveSheet.Range("a" & d) = NUMER - 1 Then
ActiveSheet.Range("a" & d + 1) = NUMER
ActiveSheet.Range("b" & d + 1) = AMSATIV
ActiveSheet.Range("c" & d + 1) = KAZM
ActiveSheet.Range("d" & d + 1) = HVHH
End If
Next d
999
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If OptionButton1 = True Then
 
Application.Sheets("shablon1").Copy Before:=Sheets("base")
ActiveSheet.Name = NUMER ‘а в этом коде заполняется сама счёт-фактура
Application.Sheets(NUMER).Range("E9") = NUMER
Application.Sheets(NUMER).Range("C11") = KAZM
Application.Sheets(NUMER).Range("C12") = ADR
Application.Sheets(NUMER).Range("C13") = HVHH
Application.Sheets(NUMER).Range("C14") = HH
Application.Sheets(NUMER).Range("C15") = BANK
Application.Sheets(NUMER).Range("D16") = VCHAR
Application.Sheets(NUMER).Range("G40") = TNOREN
Application.Sheets(NUMER).Range("G42") = GLXHASHV
Application.Sheets(NUMER).Range("G44") = YNDUNEC
Application.Sheets(NUMER).Range("C17") = HIMQN
Application.Sheets(NUMER).Range("D17") = HIMQANUN
Application.Sheets(NUMER).Range("G9") = AMSATIV
 
 
 
ElseIf OptionButton2 = True Then
 
Application.Sheets("shablon2").Copy Before:=Sheets("base")
ActiveSheet.Name = NUMER
‘…………………………………………………
‘…………………………………………………
End If
End Sub