Sub madtnt09()
Dim i As Integer, V4 As Integer, V1 As String, V2 As String
V1 = "D1"
V2 = "UA"
V4 = 10
For i = 1 To 204
Cells(i + 1, 1) = V1
Cells(i + 1, 2) = V2
Cells(i + 1, 4) = V4
Cells(i + 1, 6) = (i - 1) Mod 2 + 1
If i Mod 6 = 0 Then V4 = V4 + 1
If i Mod 12 = 0 Then V2 = "U" & Chr(Asc(Right(V2, 1)) + 1)
If i Mod 24 = 0 Then V1 = "D" & Right(V1, Len(V1) - 1) + 1
Next
For i = 1 To 204 Step 6
Cells(i + 1, 3) = "S"
Cells(i + 2, 3) = "S"
Cells(i + 3, 3) = "S3"
Cells(i + 4, 3) = "S3"
Cells(i + 5, 3) = "S4"
Cells(i + 6, 3) = "S4"
Cells(i + 1, 5) = "A"
Cells(i + 2, 5) = "A"
Cells(i + 3, 5) = "B"
Cells(i + 4, 5) = "B"
Cells(i + 5, 5) = "C"
Cells(i + 6, 5) = "C"
Next
A+
End Sub