'Paste the figures into each Method 1 colour zone
For MAINr = 5 To lastrow
If Worksheets("Template").Range("G" & MAINr) = "Screenprint" Then
Worksheets("Template").Range("BI" & MAINr).PasteSpecial
End If

If Worksheets("Template").Range("G" & MAINr) = "Engraving" Then
Worksheets("Template").Cells(MAINr, 145).PasteSpecial
End If

If Worksheets("Template").Range("G" & MAINr) = "Embossing" Then
Worksheets("Template").Cells(MAINr, 166).PasteSpecial
End If

If Worksheets("Template").Range("G" & MAINr) = "Foil Blocking" Then
Worksheets("Template").Cells(MAINr, 187).PasteSpecial
End If