@anggun123
mulai dari baris For j = 10 To 100
sampai baris Next j
edit menjadi :
...
For j = 10 To 100
n = j Mod 3
If n = 1 Then
Var = .Cells(i, j)
If Len(Var) = 0 And j = 10 Then
x = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(x, 1) = i - 1
Cells(x, 2) = produk
Cells(x, 3) = harga
Cells(x, 4) = berat
Cells(x, 5) = deskripsi
Cells(x, 6) = gbr1
Cells(x, 7) = gbr2
Cells(x, 8) = gbr3
Cells(x, 9) = gbr4
Cells(x, 10) = gbr5
Cells(x, 11) = SKU & "-" & "Multi Warna"
Cells(x, 12) = SKU & "-" & "Multi Warna"
Cells(x, 13) = SKU & "-" & "Multi Warna"
Cells(x, 14) = 0
Cells(x, 15) = 0
ElseIf Len(Var) Then
x = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(x, 1) = i - 1
Cells(x, 2) = produk
Cells(x, 3) = harga
Cells(x, 4) = berat
Cells(x, 5) = deskripsi
Cells(x, 6) = gbr1
Cells(x, 7) = gbr2
Cells(x, 8) = gbr3
Cells(x, 9) = gbr4
Cells(x, 10) = gbr5
Cells(x, 11) = AssSKU
Cells(x, 12) = SKU & "-" & Var
Cells(x, 13) = .Cells(i, j)
Cells(x, 14) = .Cells(i, j + 1)
Cells(x, 15) = .Cells(i, j + 2)
End If
End If
Next j
...
pada baris
...
Cells(x, 11) = SKU & "-" & "Multi Warna"
Cells(x, 12) = SKU & "-" & "Multi Warna"
Cells(x, 13) = SKU & "-" & "Multi Warna"
Cells(x, 14) = 0
Cells(x, 15) = 0
...
disesuaikan sj apa yang mau diisi