Evening all,

When compiled range below are not executed. Can somebody help..

Set a1range = Sheets("Sheets01").Range("A3:AD" & Lastrow)

but Ok for :-

Set bRange = Sheets("Sheets02").Range("A2:AD" & Lastrow)


Below was my full coding, try it you will see what I mean..

Sub DeleteR(0

Dim Lastrow As Integer
Dim aRange, bRange As Range


Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row


set aRange = Sheets("Sheets01").Range("A2:AD" & Lastrow)
Set bRange = Sheets("Sheets02").Range("A2:AD" & Lastrow)

Set a1range = Sheets("Sheets01").Range("A3:AD" & Lastrow)
Set b1range = Sheets("Sheets02").Range("A3:AD" & Lastrow)

aRange.ClearContents
bRange.ClearContents

a1Range.EntireRow.Delete
b1Range.EntireRow.Delete

End Sub