---

Sub CopyTableToColumn()
    Dim i As Integer, j As Integer, r As Integer
    r = 2
    For i = 0 To 4
        For j = 0 To 5
            Cells(r, 8).Value = Cells(i + 2, j + 1).Value
            r = r + 1
        Next j
    Next i
End Sub