【VBA】一次元配列を横方向にシートに貼り付け【範囲をリサイズする】

Public Sub PasteToCellResize1AryForX( _
                                        ByVal ws As Worksheet, _
                                        ByVal row As Long, _
                                        ByVal col As Long, _
                                        ByRef ary As Variant)

    Dim firstX As Long: firstX = LBound(ary)
    Dim X As Long: X = UBound(ary)
    
    '配列が0始まりの場合は1を足す
    If firstX = 0 Then X = X + 1
    
    ws.Cells(row, col).Resize(1, X).value = ary
End Sub

		Call PasteToCellResize1AryForX(Sheet1, 1, 1, ary)