Sub Create_BC()
Dim PSSD, Promo, NoPromo As Worksheet, Rec As Worksheet
Dim l, config As String
Set PSSD = Sheets("PSSD")
Set Promo = Sheets("Promo")
Set NoPromo = Sheets("No Promo")
l = 3
Do While PSSD.Cells(l, 1).Value <> ""
Promo.Rows("8:19").Copy
config = 8 + 12 * (PSSD.Cells(l, 1).Value - 1)
Promo.Cells(config, 1).Select
ActiveSheet.Paste
l = l + 1
Loop
End Sub