Sub test()
Dim i As Byte, j As Byte
Dim val As Variant
For j = 1 To Range('IV1').End(xlToLeft).Column
For i = 1 To Range('IV1').End(xlToLeft).Column
Cells(i, 1).Value = Cells(1, j).Value
j = j + 1
Next i
Next j
For k = 1 To Range('A65536').End(xlUp).Row
val = Cells(k, 1).Value
For m = 2 To 7
m = m + l
If val = Cells(m, 1).Value Then
Rows(m).Delete
End If
Next m
l = l + 1
Next k
End Sub