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

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

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

		Call PasteToCellResize1AryForY(Sheet1, 1, 1, ary)