vbaで配列に他の配列を加算して1行に書き込むプログラム

Sub ConcatenateArrays()
    Dim array1() As Variant
    Dim array2() As Variant
    Dim combinedArray() As Variant
    Dim i As Long
    Dim totalLength As Long
    
        ReDim array1(1 To 31)
        ReDim array2(1 To 31)
        
    
    For i = 1 To 31 Step 1

        array1(i) = "6月"
    Next
    
    For i = 1 To 31 Step 1
        array2(i) = "7月"
    Next
    
    ' 結合後の配列の長さを計算する
    totalLength = UBound(array1) - LBound(array1) + 1 + UBound(array2) - LBound(array2) + 1
    
    ' 結合後の配列を作成する
    ReDim combinedArray(1 To totalLength)
    
    ' array1を結合後の配列にコピーする
    For i = LBound(array1) To UBound(array1)
        combinedArray(i) = array1(i)
    Next i
    
    ' array2を結合後の配列にコピーする
    For i = LBound(array2) To UBound(array2)
        combinedArray(UBound(array1) + i) = array2(i)
    Next i
    
    ' 結合後の配列を1行に書き込む
    Range("A10").Resize(1, totalLength).Value = combinedArray
End Sub