Скопировать данные - VBA

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

На 1 листе расположена таблица № Фам Отдел Зарплата. В textbox1 - вводится отдел, при нажатии на кнопку нужно все фамилии и зарплаты этого отдела скопировать на 2 лист. Помогите пожалуйста. Код набросала, но он не работает.

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
fg = CStr(TextBox1.Text)
Sheets(1).Activate
Sheets(2).Cells(1, 1) = "Отчет"
Sheets(2).Cells(2, 1) = "Фамилия"
Sheets(2).Cells(2, 2) = "Зарплата"
i = 2: k = 3
If Cells(i, 3) = fg Then
Sheets(2).Cells(k, 1) = Cells(i, 2)
Sheets(2).Cells(k, 2) = Cells(i, 4)
k = k + 1
i = i + 1
Sheets(2).Activate
Else
MsgBox "A"
End If
End Sub

Решение задачи: «Скопировать данные»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
fg = CStr(TextBox1.Text)
Sheets(1).Activate
Sheets(2).Cells(1, 1) = "Ведомость"
Sheets(2).Cells(2, 1) = "Фамилия"
Sheets(2).Cells(2, 2) = "Зарплата"
i = 2: k = 3
Do While Cells(i, 3) = fg
If Cells(i, 4) > 0 Then
Sheets(2).Cells(k, 1) = Cells(i, 2)
Sheets(2).Cells(k, 2) = Cells(i, 4)
k = k + 1
End If
i = i + 1
Loop
Sheets(2).Activate
End Sub