Not sure what the title should say. But below, the code is basically an IF statement reading from a table. So far I got it going to row 13. I need it to go down to "maybe" row 30. I say maybe because I need it to continue all the way to what is specified in sheet11 F2. I don't want to have to go in and change the code everytime I want to change how many rows it reads.

Sub TextBox4_Click()
      Dim c As Range, d As Range
    Dim arrStore() As String
    Dim StoreIndex As Long
    
    With Range("C2", Cells(Rows.Count, "C").End(xlUp))
        If .Row < 2 Then Exit Sub   'No data
        ReDim arrStore(1 To .Rows.Count)
        For Each c In .Cells
            Set d = c.Offset(, 1)
            StoreIndex = StoreIndex + 1
            

  
  Select Case True
                Case c >= Worksheets("Sheet11").Range("B2") And c <= Worksheets("Sheet11").Range("D2") And d >= Worksheets("Sheet11").Range("C2") And d <= Worksheets("Sheet11").Range("E2")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A2")
                Case c >= Worksheets("Sheet11").Range("B3") And c <= Worksheets("Sheet11").Range("D3") And d >= Worksheets("Sheet11").Range("C3") And d <= Worksheets("Sheet11").Range("E3")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A3")
                     Case c >= Worksheets("Sheet11").Range("B4") And c <= Worksheets("Sheet11").Range("D4") And d >= Worksheets("Sheet11").Range("C4") And d <= Worksheets("Sheet11").Range("E4")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A4")
                     Case c >= Worksheets("Sheet11").Range("B5") And c <= Worksheets("Sheet11").Range("D5") And d >= Worksheets("Sheet11").Range("C5") And d <= Worksheets("Sheet11").Range("E5")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A5")
                     Case c >= Worksheets("Sheet11").Range("B6") And c <= Worksheets("Sheet11").Range("D6") And d >= Worksheets("Sheet11").Range("C6") And d <= Worksheets("Sheet11").Range("E6")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A6")
                     Case c >= Worksheets("Sheet11").Range("B7") And c <= Worksheets("Sheet11").Range("D7") And d >= Worksheets("Sheet11").Range("C7") And d <= Worksheets("Sheet11").Range("E7")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A7")
                     Case c >= Worksheets("Sheet11").Range("B8") And c <= Worksheets("Sheet11").Range("D8") And d >= Worksheets("Sheet11").Range("C8") And d <= Worksheets("Sheet11").Range("E8")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A8")
                     Case c >= Worksheets("Sheet11").Range("B9") And c <= Worksheets("Sheet11").Range("D9") And d >= Worksheets("Sheet11").Range("C9") And d <= Worksheets("Sheet11").Range("E9")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A9")
                     Case c >= Worksheets("Sheet11").Range("B10") And c <= Worksheets("Sheet11").Range("D10") And d >= Worksheets("Sheet11").Range("C10") And d <= Worksheets("Sheet11").Range("E10")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A10")
                     Case c >= Worksheets("Sheet11").Range("B11") And c <= Worksheets("Sheet11").Range("D11") And d >= Worksheets("Sheet11").Range("C11") And d <= Worksheets("Sheet11").Range("E11")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A11")
                     Case c >= Worksheets("Sheet11").Range("B12") And c <= Worksheets("Sheet11").Range("D12") And d >= Worksheets("Sheet11").Range("C12") And d <= Worksheets("Sheet11").Range("E12")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A12")
                     Case c >= Worksheets("Sheet11").Range("B13") And c <= Worksheets("Sheet11").Range("D13") And d >= Worksheets("Sheet11").Range("C13") And d <= Worksheets("Sheet11").Range("E13")
                     arrStore(StoreIndex) = Worksheets("Sheet11").Range("A13")
                

                Case c = ""
                     arrStore(StoreIndex) = ""
                Case Else
                     arrStore(StoreIndex) = "none"
                        End Select
        Next c
         End With
    
    If StoreIndex > 0 Then Range("F2").Resize(StoreIndex).Value = Application.Transpose(arrStore)
End Sub