I am having a problem with my code not looping through any sheets. I used case to exclude a couple of the sheets from hardcoding. It runs through the code and just keeps pasting on the same sheet over and over without moving to any other sheets. Anyone got any idea why this is happening. Thanks. 
Sub Hardcode()


    Dim ws As Worksheet
    
    ' So we loop through each sheet in the template
    For Each ws In Worksheets
    
    ' Ensure this is not a worksheet we do not want to update
        Select Case ws.Name
        Case "Hierarchy", "Blank", "Couponing", "Master Template", "Rollup Template", "Grand Total"

        Case Else
    ' Hard Code BW Report pulls
        Range("E9:W14").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E33:W38").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E57:W62").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E81:W86").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E105:W110").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E129:W134").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E153:W158").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        End Select
    Next ws
End Sub