Chèn 3 dòng từ sheet khác sang vị trí con trỏ (1 người xem)

[dechangcum]

Chào các anh/chị

Tôi có làm macro mục đích thêm 3 dòng từ sheet TH vào sheet hiện thời nhưng chưa chạy được. Nhờ các anh/chị giúp đỡ.
Với mong muốn chèn tại vị trí con trỏ chuột.

Sub Macro2()
Dim Rws As Long, Num As Long
Rws = Sheets("TH").Range("A1").Value
Num = Sheets("TH").Range("K3").Value
Sheets("DK04").Range(Rws & ":" & Rws + Num - 1).Insert
End Sub

 

[giaiphap]

Nhưng bạn muốn chèn vào chổ nào mới được, chứ bạn đưa code ai biết ý đồ bạn ra sao mà giúp.

 

[dechangcum]

chèn vào vị trí con trỏ chuột đang đứng ở sheet hiện thời mà bác

 

[giaiphap]

chèn vào vị trí con trỏ chuột đang đứng ở sheet hiện thời mà bác

Vậy bạn dùng code này

    Selection.Resize(3).EntireRow.Insert
    Sheets("TH").Range("A1:K3").Copy Selection

 

[dechangcum]

Cảm ơn bác giaiphap chạy ngon rồi ạ!