ML089

Sub ex()
    Dim xR As Range, x%
    For Each xR In Range("A1:A108") '½d³ò¦Û¦æ­×§ï
        If xR = "code" Then
            For x = 8 To Range("AUW1").Column Step 7 '³Ì«á½Æ»s¦ì¸m¦Û¦æ­×§ï
                xR(2, x).Resize(1, 6) = xR(2, 1).Resize(1, 6).Value 'code¦r¤U²Ä2¦C
                xR(5, x).Resize(1, 6) = xR(5, 1).Resize(1, 6).Value 'code¦r¤U²Ä5¦C
            Next
        End If
    Next
End Sub

ML089

'¦Û°Ê°»´úªí®æ½d³ò§@¬°³B²z
'­­¥Î©ó¤pªí®æ½d³ò¬° 7*7
Sub ex()
    Dim xR As Range, x%, y%
    For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 7
        If Cells(y, 1) = "code" Then
            Set xR = Cells(y, 1)
            For x = 8 To Cells(1, Columns.Count).End(xlToLeft).Column Step 7
                xR(2, x).Resize(1, 6) = xR(2, 1).Resize(1, 6).Value
                xR(5, x).Resize(1, 6) = xR(5, 1).Resize(1, 6).Value
            Next
        End If
    Next
End Sub