Creating Table from Excel Data

Sub Table()
Dim r, a, rfr, d, c, o, otr, Row, i
Rowscount = Sheet1.Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Row

Columnscount = Sheet1.Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
r = 0
a = 0
d = 0
rfr = 0
c = 0
o = 0
otr = otr + 1


For Row = 2 To Rowscount

'If ((Sheet1.Range("E" & Row).Value = "Assigned" Or "Ready For Retest" Or "Deferred" Or "Open")) Then

i = Sheet1.Range("E" & Row).Value

Select Case i

          Case "Resolved"

              r = r + 1

          Case "Open"
              o = o + 1
          Case "Assigned"
              a = a + 1
          Case "Ready For Retest"
              rfr = rfr + 1
          Case "Cancelled"
              c = c + 1
          Case "Deferred"
              d = d + 1
          Case Else
               otr = otr + 1

End Select

Next
MsgBox (a)
 Sheet2.Range("K17").Value = a
Sheet2.Range("k18").Value = d
Sheet2.Range("k19").Value = o
Sheet2.Range("k20").Value = rfr
Sheet2.Range("k21").Value = r
Sheet2.Range("k22").Value = otr
End Sub