Combining Select Case as Cell and Range in Worksheet_Change

I have a current worksheet that needs to have values from another worksheet when values from a certain range are changed. Also, I need to watch a certain cell value to execute another action, for this case, show a Msgbox.

I am usingWorksheet_Change(ByVal Target As Range) event but the whole code does not work when I specify Select Case "$G$6" and Case "$G$24:$H$54" and tried Case Else but did not work.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Select Case Target.Address

        Case "$G$6"
            If InStr(1, Range("G6"), "PUMP") > 0 Then
                MsgBox ("Pump")
            ElseIf InStr(1, Range("G6"), "SKID") > 0 Then
                MsgBox ("Skid")
            End If

        Case "$G$24:$H$54"
        If Not Application.Intersect(Target, Range("G24:H54")) Is Nothing Then
            If InStr(1, Range("G24"), "Calculate") > 0 And InStr(1, Range("G25"), "Outside Shelter") > 0 Then
                Cells(19, 8).Value = Sheets("1").Cells(159, 6).Value
                Cells(20, 9).Value = Sheets("1").Cells(163, 6).Value
                Cells(19, 11).Value = Sheets("1").Cells(160, 6).Value
                Cells(20, 10).Value = Sheets("1").Cells(164, 6).Value
            ElseIf InStr(1, Range("G24"), "Calculate") > 0 And InStr(1, Range("G25"), "Inside Shelter") > 0 Then
                Cells(19, 8).Value = Sheets("1").Cells(182, 6).Value
                Cells(20, 9).Value = Sheets("1").Cells(187, 6).Value
                Cells(19, 11).Value = Sheets("1").Cells(183, 6).Value
                Cells(20, 10).Value = Sheets("1").Cells(188, 6).Value
            End If
        End If

        Application.EnableEvents = True
        Application.ScreenUpdating = True

    End Select
End Sub