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

Public Sub PasteToCellResize2Ary( _
																			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)
		Dim X As Long: X = Ubound(ary, 2)

		'配列が0始まりの場合は1を足す
		If firstY = 0 Then
				Y = Y + 1
				X = X + 1
		End If

		ws.Cells(row, col).Resize(Y, X).value = ary
End Sub

		Call PasteToCellResize2Ary(Sheet1, 1, 1, ary)