Variablen als Zelle definieren

zuerst mein Script:
Dim i%, j%
i = Cells(Rows.Count, 4).End(xlUp).Offset(2, 0)
j = Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)
Range(i).Select
ActiveCell.FormulaR1C1 = "=R[-2]C-R[-2]C[1]"
If Range(i).Value >= "0" Then
Range(j).Value = "Gewinn"
Range(j).Interior.ColorIndex = "0"
ElseIf Range(i).Value < "0" Then
Range(j).Value = "Verlust"
Range(j).Interior.ColorIndex = "3"
End If

Ich möchte zwei Zellen mit Variablen (i und j) ansprechen! Geht das, bzw. wie? In Zeile 4 bricht mein Makro ab!

Thanx....