nhờ các anh chị giúp với

[TVGTKONTUM]

mình có bảng tính như file đính kèm
nhờ các anh chị lập code coppy dữ liệu ở vùng sao chép dán vào vùng dán ở trang 1, rồi lặp lại công việc đó ở trang 2
Cám ơn các anh chị trước

 

[laulemroi]

Sub saochep(byval arrCopy as Range,byval arrPaste as Range)
arrCopy.Copy
arrPaste.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[befaint]

https://www.giaiphapexcel.com/diendan/threads/nội-quy-diễn-đàn-cập-nhật.76052/

 

[TVGTKONTUM]

Sub saochep(byval arrCopy as Range,byval arrPaste as Range)
arrCopy.Copy
arrPaste.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

CÁM ƠN ANH laulemroi nhưng em copy vào trong module nó không chạy được.
Nhờ anh chỉ em với