Sub uniqNumbers()
    Dim lr&, i&, r&
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ThisWorkbook.Sheets(1)
    Set sh2 = ThisWorkbook.Sheets(2)
    r = 2
    With sh2
        .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    End With
    With sh1
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 16 To lr
            If .Cells(i, "f") <> "ЕП" And _
                Month(.Cells(i, "m")) <= 3 And _
                .Cells(i, "w") > 50000000 And _
                .Cells(i, "ao") = "Нет" Then
                
                sh2.Cells(r, 1) = .Cells(i, 1)
                r = r + 1
            End If
        Next i
    End With
End Sub

If .Cells(i, "f") <> "ЕП" And _
Month(.Cells(i, "m")) <= 3 And _
.Cells(i, "w") > 50000000 And _
.Cells(i, "ao") = "Нет" Then

Set sh2 = ThisWorkbook.Sheets(2)

Set sh2 = Workbooks.Add.Sheets(1)