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

' Paste 1D array vertically into a worksheet cell
' 一次元配列をシート上に縦方向に貼り付ける
Public Sub PasteToCellResize1AryForY( _
	ByVal ws As Worksheet, _
	ByVal row As Long, _
	ByVal col As Long, _
	ByRef ary As Variant)

	Dim rowCount As Long
	' 要素数 = UBound - LBound + 1
	rowCount = UBound(ary) - LBound(ary) + 1
	
	' 縦方向に rowCount 行分貼り付け
	ws.Cells(row, col).Resize(rowCount, 1).Value = WorksheetFunction.Transpose(ary)
End Sub