Code VBA tự động chèn hàng chọn trước (1 người xem)

[nguyenthinhqn]

Chào mọi người, mình muốn tự động chèn những hàng màu đỏ vào dưới các hàng 1,2,3... trong file đính kèm thì làm như thế nào (trong file đính kèm là ví dụ, thực chất danh sách của mình rất dài, ngồi Ctrl C với Ctrl + thi rất lâu) Xin mọi người giúp mình,thanks!!!

 

[nguyenthinhqn]

mấy bác thay file trên thành file này, em cung đã vô record VBA để chạy thử rồi copy code như sau
Sub thinh1()
'
' thinh1 Macro
'
' Keyboard Shortcut: Ctrl+e
'
Rows("8:17").Select
Selection.Copy
Rows("19:19").Select
Selection.Insert Shift:=xlDown
Rows("8:17").Select
Application.CutCopyMode = False
Selection.Copy
Rows("30:30").Select
Selection.Insert Shift:=xlDown
Rows("8:17").Select
Application.CutCopyMode = False
Selection.Copy
Rows("41:41").Select
Selection.Insert Shift:=xlDown
End Sub
tại em mới bước vô tìm hiểu VBA nên không biết áp dụng đoạn code trên như thế nào để thành chương trình hoàn chỉnh (khi chay là insert đến hang 47 luôn)
bác nào giúp em hoàn chỉnh nó, em cũng đang cố gắng tìm hiểu vể viết thử

 

[nguyenthinhqn]

lộn, chưa tải file lên, mấy bác giúp em trên file này nhé

 

[nguyenthinhqn]

ủa, êm xin phép tải lên lại