Solved: delete rows

[asdzxc]

if total rows greater than 10, delete last 2 rows, plse write a vba.

[patel]

sub deleterows()
LR = Cells(Rows.Count, "A").End(xlUp).Row
if LR > 10 then
range("A11:C" & LR).entirerow.delete
end if
end sub

[asdzxc]

sub deleterows()
LR = Cells(Rows.Count, "A").End(xlUp).Row
if LR > 10 then
range("A11:C" & LR).entirerow.delete
end if
end sub


sloved.thanks