Pattern

Sub Pattern()
    Dim i As Integer
    Dim z As Integer
    Dim y As Integer
    Dim lastrow As Integer
    Dim append
    append = Array("Create", "Read", "Write", "Append", "Append To")
    y = 1
    Sheets("Input").Select
    lastrow = Range("A65536").End(xlUp).Row
    For i = 1 To lastrow
        For z = 0 To 4
            Sheets("Output").Range("A" & y) = Sheets("Input").Range("A" & i) & " " & append(z)
            y = y + 1
        Next z
    Next i
End Sub