Duplicating Rows based on Value from another table

michaeldee 

Sub duplicates()

Dim i As Integer
Dim j As Integer
Dim w As Integer
Dim z As Integer

Range("I:J").Clear

z = 3
For i = 3 To 20

j = Application.WorksheetFunction.CountIf(Range(Cells(3, 5), Cells(14, 5)), Cells(i, 2))

If j = 1 Then

Range(Cells(i, 2), Cells(i, 3)).Copy Cells(z, 9)
z = z + 1

Else

If j = 2 Then

w = Application.WorksheetFunction.Match(Cells(i, 2), Range(Cells(3, 5), Cells(14, 5)), 0) + 2

If Cells(i, 3).Value = Cells(w, 6).Value Then

Range(Cells(w, 5), Cells(w + 1, 6)).Copy Range(Cells(z, 9), Cells(z + 1, 10))
z = z + 2

Else
Range(Cells(i, 2), Cells(i, 3)).Copy Cells(z, 9)
z = z + 1

End If

Else
Range(Cells(i, 2), Cells(i, 3)).Copy Cells(z, 9)
z = z + 1

End If

End If

Next i

End Sub

Maybe with these lines of code. You can click the button in cell M2 in the attached file to start the macro.

Table2 has to be sorted by the Level Codes and there can be duplicate Level Codes but no triplicates, quadruplicates and so on. If i understand your question correctly there must be an exact match for Level Code and Level ID.