Hi guys, I need some help with this,

Function powerarray(n, d)
Dim a()
ReDim a(1 To n, 1 To n)

( I am supposed to fill this part to get the desired result)

powerarray = a
End Function
Thank you in advance!
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
so basically powerarray(n,d) function generates n * n array that should contains the numbers as follow:
1)The initial offer is 20
2)Each cell down should be divided by (1+d)
3)Each cell down to the right should be multiplied by (1+d)

powerarray (5,0,20) should generate the following outcome:


Screenshot 2021-09-09 at 11.55.21.png