Formula evaluating itself 'on the fly' or a vba macro

Hello,

I find myself in a need of a macro or a formula that would solve the following.

In G1 I've got a number or iterations, which is going to change, depending on other conditions.
In H1 I've got a constant- but it will also change depending on other conditions which is not ipmortant at the moment. Though it has to be stored in this cell, but for the following columns both can be considered constant numbers.
In column "I" I need to perform a subtraction of:
for i=1 to G1 do
I(i)-H1

Similarly in column 'J'
for i=1 to G1 do
D(i)*(1-0,1)^F(i)

Could someby be so kind and post either a formula or a macro that would do the above? I'm fairly new to excel and don't know vba script yet.

Please read and adhere to these simple rules!
1. Use concise, accurate thread titles. Your post title should describe your problem, not your anticipated solution. .....

what's your goal ?

EDIT: Pardon petel45. I tried to edit thread title, but there seems to be some sort of glitch and changes are not getting saved.

Hm, I believe I managed to alter other macro I had. The code looks awful, but it works in the frst case and I'm trying to get the second case working as well.

Sub CurrentStatus()
Dim i, LastRow
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, "A").Value <> "" Then
If Cells(i, "a").Row = 1 Then
Cells(i, "I") = Cells(1, "E") - Cells(1, "H")
Else
Cells(i, "I") = Cells(i, "E") - Cells(1, "H")
End If
End If
Next
End Sub

I belive I could throw away .Row = 1 line, but I didn't want to mendle too much.
I need a similar thing for column "J", which I intend to do this way:
[code]
Hm, I believe I managed to alter other macro I had. The code looks awful, but it works in the frst case and I'm trying to get the second case working as well.

I belive I could throw away .Row = 1 line, but I didn't want to mendle too much.
I need a similar thing for column "J", what I intend to do is something like:

Sub PreSumTable()
Dim i, LastRow
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, "A").Value <> "" Then
If Cells(i, "a").Row = 1 Then
Cells(i, "J") = Cells(1, "D")*(1-0,1)^Cells(1, "F")
Else
Cells(i, "J") = Cells(i, "D")*(1-0,1)^Cells(i, "F")
End If
End If
Next
End Sub

Accordingly I believe this macro should work if I throw away

If Cells(i, "a").Row = 1 Then
Cells(i, "J") = Cells(1, "D")*(1-0,1)^Cells(1, "F")

And

End If

did you read my post ? the title was good, but you did not describe your problem, your goal.
You only anticipated solution