Macro Problem

[ironsides]

Im using this Macro
---------------------

Sub SpaceG()
'
' SpaceI Macro
' Macro recorded 10/6/2010 by DCS Valued Customer
'
' Keyboard Shortcut: Ctrl+Shift+G
'
'
Dim i As Long
For i = Range("G65536").End(xlUp).Row To 20 Step -1
If Cells(i, "G") <> Cells(i - 1, "G") Then Rows(i).EntireRow.Insert
Next i

End Sub

------------
The numerical value is cell G is derived thru this formula =Sum(F8-E8)/(E8)

I sort cell G and then try to activate the macro
But I get an error message
Runtime error 13 Type Mismatch

and the following is highlighted

If Cells(i, "i") <> Cells(i - 1, "i") Then

The cells in all cols are formatted Numbers 2 decimal places

Is the problem that Im using a formula in cell G to derive the value?
What adjustments can I make to get around this?

Im using Excel 2000

Thank you Ironsides

 

[VoG]

That looks like it should work. Maybe try

Sub SpaceG()
'
' SpaceI Macro
' Macro recorded 10/6/2010 by DCS Valued Customer
'
' Keyboard Shortcut: Ctrl+Shift+G
'
'
Dim i As Long
For i = Range("G65536").End(xlUp).Row To 20 Step -1
    If Cells(i, "G").Text <> Cells(i - 1, "G").Text Then Rows(i).Insert
Next i

End Sub

 

[ironsides]

That looks like it should work. Maybe try

Sub SpaceG()
'
' SpaceI Macro
' Macro recorded 10/6/2010 by DCS Valued Customer
'
' Keyboard Shortcut: Ctrl+Shift+G
'
'
Dim i As Long
For i = Range("G65536").End(xlUp).Row To 20 Step -1
    If Cells(i, "G").Text <> Cells(i - 1, "G").Text Then Rows(i).Insert
Next i

End Sub

Perfect Peter, Thanks yet again Matt