Excel 2002 macro

Thanks for sending the file. That made it much easier to see what you wanted.

Here is what I suggest.
Instead of going to Macros after you click Tools, select Visual Basic Editor.
On the left side of the pane window, you will see a folder called Modules.
Click on the plus sign to expand the folder. Modules 3 and Modules 6 have the code that you want to delete.
You have to delete each Module one at a time.
Right click on the Module and select Remove Module....
Now close the Visual Basic Editor to return to your spreadsheet.
Click the Record Macro button. Now, immediately click Stop Recording.
Click Tools >>Macros, and select the macro you just recorded.
Now rename the macro to match the name on your spreadsheet.
Then click Edit macro and paste the code I gave you.
You are done.
Aslo, I modified the code a little since I was able to work with the file (Thanks again for that).
It is simplified and should run faster.

Dim i
Dim x
i = 14
x = 14

Do Until Range("O" & x) = Range("O33")


Range("N" & i) = Range("O" & x)

i = i + 1
x = x + 1

Loop

I'm trying to modify your original macro with the goal seek.
This is where we have to go back to your original question.
You said you wanted Column N to look in Column O without using the inputbox.
So, the value to start in N14 equals O14 until it reaches N32 like your original macro?

Example:
The value in O14 in the spreadsheet is 26206. You want that as the value in N14:N32 using goal seek.


Once we get past this, we can tackle the next obstacle.

I think this is what you are looking for. The problem with this code is, you would have to assign it to a button, and keep clicking the button until it reached N32. The code is assigned to only one cell, and then the For loop exits so it can check the value of the next cell. I have not used goal seek in vba before so I keep getting syntax errors.
In your original code you called for the inputbox to fill the range N14:N32 thus, using the same number to fill the range. Maybe this can help you.

Dim seekValue As Double
Dim changeCell
seekValue = Range("O14")
seekValue2 = Range("O15")
seekValue3 = Range("O16")
seekValue4 = Range("O17")
seekValue5 = Range("O18")
seekValue6 = Range("O19")
seekValue7 = Range("O20")
seekValue8 = Range("O21")
seekValue9 = Range("O22")
seekValue10 = Range("O23")
seekValue11 = Range("O24")
seekValue12 = Range("O25")
seekValue13 = Range("O26")
seekValue14 = Range("O27")
seekValue15 = Range("O28")
seekValue16 = Range("O29")
seekValue17 = Range("O30")
seekValue18 = Range("O31")
seekValue19 = Range("O32")



For Each changeCell In Cells(14, 14)
changeCell.GoalSeek Goal:=seekValue, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell


For Each changeCell In Cells(15, 14)
changeCell.GoalSeek Goal:=seekValue2, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell


For Each changeCell In Cells(16, 14)
changeCell.GoalSeek Goal:=seekValue3, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell


For Each changeCell In Cells(17, 14)
changeCell.GoalSeek Goal:=seekValue4, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(18, 14)
changeCell.GoalSeek Goal:=seekValue5, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(19, 14)
changeCell.GoalSeek Goal:=seekValue6, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(20, 14)
changeCell.GoalSeek Goal:=seekValue7, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(21, 14)
changeCell.GoalSeek Goal:=seekValue8, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(22, 14)
changeCell.GoalSeek Goal:=seekValue9, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(23, 14)
changeCell.GoalSeek Goal:=seekValue10, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(24, 14)
changeCell.GoalSeek Goal:=seekValue11, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(25, 14)
changeCell.GoalSeek Goal:=seekValue12, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(26, 14)
changeCell.GoalSeek Goal:=seekValue13, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(27, 14)
changeCell.GoalSeek Goal:=seekValue14, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(28, 14)
changeCell.GoalSeek Goal:=seekValue15, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(29, 14)
changeCell.GoalSeek Goal:=seekValue16, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(30, 14)
changeCell.GoalSeek Goal:=seekValue17, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(31, 14)
changeCell.GoalSeek Goal:=seekValue18, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell

For Each changeCell In Cells(32, 14)
changeCell.GoalSeek Goal:=seekValue19, _
ChangingCell:=changeCell.Offset(0, -4)
Next changeCell


End Sub

Sub goalSeekSample()
Dim seekValue As Double
Dim changeCell As Range
Inflation = Range("O7").Value
seekValue = InputBox("What's the value to seek?")
For Each changeCell In Range("N14:N32").Cells
changeCell.GoalSeek Goal:=seekValue, _
ChangingCell:=changeCell.Offset(0, -4)
seekValue = seekValue + (seekValue * Inflation)
Next changeCell
End Sub

this work
problem solved