I was wrong, it's not easy, data are too messy for me, I can help you only if the Color column order is the same as Cleaned row order with this code
Sub a()
LR = Cells(Rows.Count, "D").End(xlUp).Row
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
LR = sh1.Cells(Rows.Count, "D").End(xlUp).Row
drow = 3
For j = 2 To LR Step 18
col = 4
sh2.Range("A" & drow & ":C" & drow).Value = sh1.Range("A" & j & ":C" & j).Value
For r = j To j + 17
sh2.Range(Cells(drow, col), Cells(drow, col + 3)) = sh1.Range("E" & r & ":H" & r).Value
col = col + 4
Next
drow = drow + 1
Next
End Sub
but you have to change columns order on sheet 2
Bookmarks