Em muốn copy 2 vùng bôi vàng để pass vào file khác thì code như thế nào ạ? mong mọi người giúp đở ạ! E đang dùng đoạn code dưới để copr theo vùng ạ.

[huuthanhxdkt]

JS2.Activate
Lr22 = JS2.Range("A" & Rows.Count).End(xlUp).Row
JS2.Range("A1:J" & Lr22).Copy
WS4.Range("A10").PasteSpecial

 

[Maika8008]

View attachment 264066
JS2.Activate
Lr22 = JS2.Range("A" & Rows.Count).End(xlUp).Row
JS2.Range("A1:J" & Lr22).Copy
WS4.Range("A10").PasteSpecial

Vùng thứ nhất.
Sheet1.Range("A1: D19").Copy Sheet2. Range("A1")
Vùng 2:
Sheet1.Range("F1:K19").Copy Sheet2. Range("F1")