Hỏi về lỗi khi chạy Button Macro

[o0mylove0o]

Anh/chị cho em hỏi,
Em tạo 1 button để lọc, copy và paste qua 1 sheet khác.
Nhưng khi khi chạy thì bị báo lỗi như hình.


Câu lệnh em dùng Record để ghi lại như sau:
Sub UpdateDataRecipe2()
'
' UpdateDataRecipe2 Macro
' UpdateDataRecipe2
'

'
ActiveSheet.Range("$A$4:$AA$3000").AutoFilter Field:=27, Criteria1:="<>"
Range("M4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("M4:AA3001").Select
Selection.Copy
Sheets("Data_Recipe").Select
Range("A3").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=39
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 1
End Sub

 

[SA_DQ]

'Nó' báo lỗi ở dòng lệnh nào vậy, bạn?