I tried the following but no luck. If I just create a macro to delete a row
it places a 2 where I have the variable row. I just need to increment the row.

Sub delete()
' delete Macro
'
Dim row, endrow As Integer
row = 2
endrow = 120
'
If row < endrow Then
Rows("row:row").Select
Selection.delete Shift:=xlUp
row = row + 1

End If

End Sub