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