Ошибка в коде VBA - недопустимая ссылка на следующую управляющую переменную

Question

У меня есть следующий код, который возвращает ошибку: Invalid Следующая ссылка на управляющую переменную. Кто-нибудь может указать, где я не прав и как мне импровизировать? Код предназначен для извлечения строк на основе определенного ключевого слова из ячейки A2 и далее

Sub Macro1()
    Dim DVariable As Date
    Dim RngFind As Range
    Dim MonthNo, YearNo As Integer
    Dim StartDate, EndDate As Date
    Dim PasteCell As Range
    Dim M As Long, i As Long, j As Long

    Application.DisplayAlerts = False
    Sheets("Report").Select
    Set ws1 = ThisWorkbook.Sheets.Add(After:= _
            ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws1.Name = "NEW"
    Sheets("Macro").Select
    For M = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Sheets("Macro").Select
            With Sheets("By Trader")
    'loop column N until last cell with value (not entire column)
                For Each Cell In .Range("N1:N" & .Cells(.Rows.Count, "N").End(xlUp).Row)
                    If Cell.Value = M Then
             ' Copy>>Paste in 1-line (no need to use Select)
                    .Rows(Cell.Row).Copy Destination:=Sheets("NEW").Rows(Cell.Row)
                    End If
                Next
            End With
     Next
End Sub