Как вводить данные в последнюю созданную страницу

Private Sub CommandButton2_Click()
ThisWorkbook.Worksheets(1).PrintOut
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
 
Private Sub CommandButton4_Click()
Лист1.Copy After:=Worksheets(Worksheets.Count)
CommandButton1.Enabled = True
CommandButton2.Enabled = True
End Sub
 
Private Sub UserForm_Activate()
TextBox2 = Format(Now, "dd/mm/yy")
TextBox3 = Format(Now, "dd/mm/yy")
CommandButton1.Enabled = False
CommandButton2.Enabled = False
End Sub
 
Private Sub CommandButton1_Click()
Dim Приказ As Object
Set Приказ = Sheets("Приказ")
Worksheets("Приказ").Activate
Приказ.Cells(1, 6) = TextBox1.Value
Приказ.Cells(9, 6) = TextBox2.Value
Приказ.Cells(10, 6) = TextBox3.Value
Приказ.Cells(13, 6) = TextBox4.Value
Приказ.Cells(15, 6) = TextBox5.Value
Приказ.Cells(17, 6) = TextBox6.Value
Приказ.Cells(19, 6) = TextBox7.Value
Приказ.Cells(21, 6) = TextBox8.Value
Приказ.Cells(24, 6) = TextBox9.Value
Приказ.Cells(27, 6) = TextBox10.Value
CommandButton1.Enabled = False
End Sub

Private Sub CommandButton4_Click()
Лист1.Copy After:=Worksheets(Worksheets.Count)
 
Cells(1, 6) = TextBox1.Value
Cells(9, 6) = TextBox2.Value
Cells(10, 6) = TextBox3.Value
Cells(13, 6) = TextBox4.Value
Cells(15, 6) = TextBox5.Value
Cells(17, 6) = TextBox6.Value
Cells(19, 6) = TextBox7.Value
Cells(21, 6) = TextBox8.Value
Cells(24, 6) = TextBox9.Value
Cells(27, 6) = TextBox10.Value
 
 
 
CommandButton1.Enabled = True
CommandButton2.Enabled = True
End Sub