xin các thầy giúp em rút gọn 2 macro autofill va paste value (1 người xem)

[gamegamegamegame]

phần autofill em muốn hể c5 ,d5, g5 ,trở xuống có dữ liệu thì mới fill công thức từ J4,K4,L4,M4 xuống
còn phần paste value thì em ko biết làm sao cho nó gọn lại nữa
mong được sự góp ý

em có xem một code autofill của thầy ndu trên mạng mà không biết áp dụng thế nào vào bảng tính của em mong mọi người tư vấn giúp

 

[gamegamegamegame]

mày mò trên mạng đã làm được autofill
Sub autofill()
Dim LR As Long
rl = Range("d666666").End(xlUp).Row
Range("J4").autofill Destination:=Range("J4:J" & rl)
Range("k4").autofill Destination:=Range("k4:k" & rl)
Range("l4").autofill Destination:=Range("l4:l" & rl)
Range("m4").autofill Destination:=Range("m4:m" & rl)
End Sub

 

[gamegamegamegame]

còn một vấn đề nữa là paste value nữa ko biết làm thế nào
bây giờ em muống paste value theo điều khiển ko biết có làm được ko xin mọi người góp ý giúp
vd nếu cột d5 có dữ liệu thì nó sẽ paste value dong j5,k5,l5,m5