Try this:
Dim rngLoopRange As Range Application.ScreenUpdating = False For Each rngLoopRange In Range("E2:P13") Select Case rngLoopRange.Value Case 1 Range("B27").Copy rngLoopRange Case 2 Range("C27").Copy rngLoopRange End Select Application.CutCopyMode = False Application.ScreenUpdating = True Next rngLoopRange
Dom
Bookmarks