Hello, All. Capture.JPG

I have the table in the image attached. I am trying to pull two adjacent cells out of a row and concat them together. I have several case statements before this for row numbers 2 - 4.

I have read that the header row is not included in the row count. i.e. row 1 should be the first non-header row in the table. However, I am not seeing that as the reality. When I use ListRows("2") I get data out of the first non-header row.

My problem is when i get to the case statement below. It says that ListRows("7") is out of range. I dont get it though. If ListRows("2") is the first non-header row and I want the last row in the table...It should be 7. I have included the table resize window as well so that you can see the bounds of the table. any help would be appreciated. 

             Case ratingNum Like "5"
                Cells(2, 1).Value = ActiveWorkbook.Sheets("How to Use").ListObjects("RatingScale") _
                .Range(ActiveWorkbook.Sheets("How to Use").ListObjects("RatingScale").ListRows("7").Index, _
                ActiveWorkbook.Sheets("How to Use").ListObjects("RatingScale").ListColumns("Level Name").Index).Value _
                & ": " & ActiveWorkbook.Sheets("How to Use").ListObjects("RatingScale") _
                .Range(ActiveWorkbook.Sheets("How to Use").ListObjects("RatingScale").ListRows("7").Index, _
                ActiveWorkbook.Sheets("How to Use").ListObjects("RatingScale").ListColumns("Description").Index).Value