create a table of all values (solved)

Sub Test()
    Dim Years As Variant
    Dim Months As Variant
    Dim Cats As Variant
    Dim r As Integer
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer
    Years = Array(2003, 2004, 2005)
    Months = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    Cats = Array(1, 2)
    r = 1
    With Worksheets("Sheet1")
        .Cells(r, 1) = "Year"
        .Cells(r, 2) = "Month"
        .Cells(r, 3) = "Category"
        For x = 1 To UBound(Years)
            For y = 1 To UBound(Months)
                For z = 1 To UBound(Cats)
                    r = r + 1
                    .Cells(r, 1) = Years(x)
                    .Cells(r, 2) = Months(y)
                    .Cells(r, 3) = Cats(z)
                Next z
            Next y
        Next x
    End With
End Sub

Option Base 1

Sub Test1()
    Dim Sh As Worksheet
    Dim Rng As Range
    Dim MyArray As Variant
    Dim Msg As String
    Dim x As Integer
    Set Sh = Worksheets("Sheet2")
    Set Rng = Sh.Range("A2:A" & Sh.Range("A65536").End(xlUp).Row)
    MyArray = WorksheetFunction.Transpose(Rng.Value)
    For x = 1 To UBound(MyArray)
        Msg = Msg & MyArray(x) & vbCrLf
    Next x
    MsgBox Msg
End Sub

Sub Test1()
    Dim Sh As Worksheet
    Dim Rng As Range
    Dim MyArray As Variant
    Dim Msg As String
    Dim x As Integer
    Set Sh = Worksheets("Sheet2")
    Set Rng = Sh.Range("A2:A" & Sh.Range("A65536").End(xlUp).Row)
    MyArray = WorksheetFunction.Transpose(Rng.Value)
    If IsArray(MyArray) Then
        For x = 1 To UBound(MyArray)
'           Your code goes here
            Msg = Msg & MyArray(x) & vbCrLf
        Next x
    Else
'       Your code goes here
        Msg = MyArray
    End If
    MsgBox Msg
End Sub