Sub toto()
Dim i&, nl&, d(), v()
Const pl& = 7
nl = Cells(Rows.Count, 2).End(xlUp).Row - pl
If nl > 0 Then
d = [B2:C3].Value
d(1, 1) = "For each Side Tension Deck"
d(2, 1) = "For each 305LS Deck"
v = Range(Cells(pl + 1, 4), Cells(nl + pl, 5))
ReDim Preserve v(1 To UBound(v), 1 To 3)
For i = 1 To nl
Select Case v(i, 2)
Case Empty: v(i, 3) = v(i, 1)
Case d(1, 1): v(i, 3) = d(1, 2) & "x" & v(i, 1)
Case d(2, 1): v(i, 3) = d(2, 2) & "x" & v(i, 1)
End Select
Next
Range(Cells(pl + 1, 4), Cells(nl + pl, 6)) = v
End If
End Sub