Run Time error '1004':

[Roller]

I am getting an error message: "Delete method of range class filed" with my code below.
I have bolded the section that is highlighted when I try to debug this. I've picked up this code from another post, and it worked earlier, but now it does not. The only thing I've done was copy this macro to my personal.xls file. Thank you, in advance, for any assistance.

' This section will delete any rows where the amount field is blank.
Dim Rng As Range, Rng2 As Range
Set Rng = Range("j500").End(xlUp)
Do Until Rng.Row = 12
Set Rng2 = Rng.Offset(-1, 0)
If Rng = "" Then Rng.EntireRow.Delete
Set Rng = Rng2
Loop

 

[venkat1926]

I have added one more line within two '================
i added a msgboxstatemnt for debug purposes only and changed into comments later.
at the last stage of running the macro the macro goes to J1 and it cannot find any offset (-1,0) and that is why the error.


now test it. (IN A COPIED FILE SO THAT THE ORGIINAL FILE IS NOT MESSED UP)
The modified macro is

Sub test()


Dim Rng As Range, Rng2 As Range
Set Rng = Range("j500").End(xlUp)
Do Until Rng.Row = 1
'==============
If Rng.Row = 1 Then Exit Sub
'===============================
Set Rng2 = Rng.Offset(-1, 0)
'msgbox rng.address
If Rng = "" Then Rng.EntireRow.Delete
Set Rng = Rng2
Loop
End Sub

 

[Roller]

Thank you for your suggestion. It worked great! Its great to have a community like this to offer assistance. Thanks a million!