Excel Run-Time Error 1004 No cells were found

[Jnat2]

This macro starts out looking for the first non blank cell by looking down about a hundred cells and then going back up till it finds the first non blank cell. When it finds the first non-blank cell it goes up 1 row and adds 1 to the number for the next row. It works fine the first time then, after the file is saved it will stop the macro with the following message; Run-time error ‘1004’ No cells were found. If I format the cells in question, the macro works again until I save the file, then it happens again.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
Excel 2003 11.8220.8221 SP3
I think there is a hotfix for this but I can't get it to install. Is there a way around this?

This is the portion of the code that gets the error:

Range("A11:A100").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.FormulaR1C1 = "=+R[-1]C+1"

Thanks

 

[Jnat2]

This works great. I just need to add the copy formulas in a couple of places so it adds the previous amounts, averages the values, etc.

Is there a way to put labels on the input boxes so you know what to enter?

Thanks for your help

 

[RoryA]

Yes, just change the single space in your inputbox statements to whatever you want the prompts to be.

 

[Jnat2]

Thanks again for you help.

 

[Jnat2]

Rory, Sorry to bother you again. I thought it would be easy to insert the copy, paste, but its not. Where you have .Value, I need to copy the formula from above back to the current cell.

I tried my old stuff, didn't work.
thanks

 

[RoryA]

If it's formulas for all of them, try this:

   Dim rngNext As Range
   With Sheets("Smith_Ron")
      Set rngNext = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
   End With
   With rngNext
      .FormulaR1C1 = "=+R[-1]C+1"
      .Offset(0, 1).Value = InputBox(" ")
      .Offset(0, 2).Value = InputBox(" ")
      .Offset(0, 3).FormulaR1C1= .Offset(-1, 3).FormulaR1C1
      .Offset(0, 4).FormulaR1C1= .Offset(-1, 4).FormulaR1C1
      .Offset(0, 5).Value = InputBox(" ")
      .Offset(0, 6).FormulaR1C1= .Offset(-1, 6).FormulaR1C1
      .Offset(0, 7).Value = InputBox(" ")
   End With
   Application.Run "Golf2009.xls!SelectMenu"
   Application.Run "Golf2009.xls!Imput"

 

[Jnat2]

It works great. It does exactly what I need. I appreciate everyone's help with this.

Thanks again