I am trying to compare rows on two worksheets in same workbook. The compare
should work but when I try to increment down using hte counter it blows up. I
have a little experience with c and this works there. All help appreciated!

Sub Compare_Tests()
Dim i As Integer ' use to increment thru worksheet
Dim cutrange As Range ' new data to move if changed

i = 3 'counter

Do Until IsEmpty(Cells(i, 1)) 'runs entire length of all sheets in variable
sizes
If Worksheets("well tests").Range("si") <>
Worksheets("sheet1").Range("ti") Then ' if AOF <>
Set cutrange = ("Hi:Oi") 'cut observations
cutrange.Cut Destination:=Worksheets("well tests").Range("Gi:Ni") ' paste
Worksheets("well tests").Range("ai").Value = "new" ' identify as new
End If
i = i + 1 ' move down a row
Exit Do