Пользовательская форма - VB

Формулировка задачи:

Всем привет,очень нужна маленькая помощь.
Есть форма на листе 1,она вводит данные на лист 2 с переходом на этот лист.
Вопрос: какую строку кода добавить, чтобы при вводе данных НЕ переходить на активный лист?

Код:Private Sub CommandButton1_Click()
Sheets("Лист2").Activate
Worksheets("Лист2").Visible = True
Dim row As Integer
Worksheets("Лист2").Select
row = Application.CountA(ActiveSheet.Columns(1)) + 1
With Worksheets("Лист2")

Решение задачи: «Пользовательская форма»

textual
                            Листинг программы 
                        
                            Private Sub CommandButton1_Click()
Dim row As Integer

With Worksheets("Лист2")
row = Application.CountA(.Columns(1)) + 1