For i = 7 To 10000
If Worksheets("½ü°ÊÈ").Range("A2") = Worksheets("½ü°ÊÈ").Range("A" & i) Then
Worksheets("½ü°ÊÈ").Range("B" & i & ":I" & i).Value = Worksheets("½ü°ÊÈ").Range("B2:I2").Value
GoTo stockup
End If
Next
For i = 7 To 10000
day = Worksheets("½ü°ÊÈ").Range("A" & i)
If day = Worksheets("½ü°ÊÈ").Range("A" & i) Then
Worksheets("½ü°ÊÈ").Range("B" & i & ":I" & i).Value = Worksheets("½ü°ÊÈ").Range("B2:I2").Value
GoTo stockup
End If
Next