Please Help!!!!!!

Sub ColumnMDateRows()

Dim rng As Range

With Application
    CurrentScreenUpdating = .ScreenUpdating
    CurrentCalculate = .Calculation
    CurrentEnableEvents = .EnableEvents
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With

Worksheets("sheet1").Activate
ActiveSheet.Range("M:M").AutoFilter Field:=1, Criteria1:="<>"

With ActiveSheet
    Set rng = ActiveSheet.AutoFilter.Range
    filtered = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
    
    If filtered > 0 Then
        rng.Offset(1, -12).Resize(rng.Rows.Count - 1, 13).Copy
        Worksheets("sheet2").Activate
        Cells(1, 1).Select
        ActiveSheet.Paste
    Else
        MsgBox ("No date rows found")
    End If
End With


With Application
    .ScreenUpdating = CurrentScreenUpdating
    .Calculation = CurrentCalculate
    .EnableEvents = CurrentEnableEvents
End With

End Sub