Macro to copy cells based on the value of another cell

Application.ScreenUpdating = False
Range("AD12:AD1012").Select
Selection.ClearContents

    Range("M11:R1512").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="X"
    Range("M12:M1512").Select
    Selection.Copy
    Range("AD12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    Selection.AutoFilter
    Application.ScreenUpdating = True
    MsgBox "The accounts are listed in column AD."