如果符合条件，则复制行到新工作表

Question

如果符合条件，我正在尝试将行复制并粘贴到新工作表中。

我有代码，它有点工作。它复制列中的任何行＆＃34; N＆＃34;如果它有＆＃34; FEH＆＃34;并粘贴到标有＆＃34; FEH。＆＃34;的新工作表中。但是，每次将行复制并粘贴到新工作表时，它都会打开一个对话框，显示＆＃34;更新值：保存工作簿的文件夹的名称＆＃34;该框看起来像另存为对话框。我必须每次点击取消或关闭它（我已经包含了对话框的图片）。

我从youtube频道找到了此代码：https://www.youtube.com/watch?v=qGZQIl9JJk4

我删除了他正在使用的两行，因为如果我离开这些行，代码就不会停止运行。

为了不显示此对话框，我需要修复什么？

Private Sub CommandButton2_Click()
 a = Worksheets("Invoice").Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To a
     If Worksheets("Invoice").Cells(i, "N").Value = "FEH" Then
        Worksheets("Invoice").Rows(i).Copy
        Worksheets("FEH").Activate
        b = Worksheets("FEH").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("FEH").Cells(b + 1, 1).Select
        ActiveSheet.Paste
    End If
  Next
End Sub