Sub Lifeis()
Dim Life(1 To 6)
Dim i As Integer, n As Integer, c As Integer
Life(1) = "Wake up"
Life(2) = "GoTo work"
Life(3) = "Code"
Life(4) = "GoTo home"
Life(5) = "Get yelled at"
Life(6) = "GoTo bed"
For c = 1 To 20
For n = 0 To 10
For i = 1 To 6
Cells(n * 6 + i, c) = Life(i)
Next i
Next n
Next c
End Sub