Nhờ các bạn viết lại đoạn code

[a_newday]

Mình đã record macro đặt tên là: "Taochinhhopchap2" cho file gửi kèm nhưng không viết lại được code bằng cấu trúc lặp For ... Next; có cao thủ nào giúp mình viết lại đoạn code cho mình với... mình xin cám ơn rât nhiều ...

 

[SA_DQ]

Option Explicit
Sub ChinhHopChap2Cua5()
 Dim jJ As Byte, Ww As Byte
 For jJ = 4 To 8
    For Ww = jJ To 8
        With Cells(3, Ww - 1)
            Cells(jJ, Ww).Value = Cells(3, jJ - 1).Value & .Offset(, 1).Value
        End With
    Next Ww
 Next jJ
End Sub

Trên trang tính chạy macro có dữ liệu như sau:

| C | D | E | F | G | H 3 |a|b|c|d|e|f