Thanks a lot Pratts
I tried the code and I changed it slightly:
Sub TurnAutoFilterOn()
If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1:M1").AutoFilter
End If
ActiveSheet.Range("M:M").AutoFilter Field:=13, Criteria1:="=MHO"
ActiveSheet.Range("M1", ActiveSheet.Range("A2:M2").End(xlDown)).Select
Selection.Copy
ActiveWorkbook.Sheets.Add
ActiveWorkbook.ActiveSheet.Name = "New sheet"
ActiveWorkbook.Range ("A1")
ActiveSheet.Paste
ActiveSheet.Columns("A:A").AutoFit
End Sub
The part I put in red is the reason why it's not fully working. It's highlighted in yellow in the vba code sheet. However, MHO has been filtered but it just won't copy to "New sheet". Do you know what the problem could be?Thanks