Find Last Row counting from the 2nd row down?

[question610]

I want to delete all the cells from Row 2 down for column 1 and 2. What is the best way to do it?

I tried this but the lastRow is simply the last row number which does not help because I would delete the first row too. I need something like offset...what's the best way?

lastRow = Range("B2").End(xlDown).Row ' 
Set DeleteRange = ActiveSheet.Range("A2:A" & lastRow, "B2:B" & lastRow)

 

[Scott T]

Try

lastRow = Cells(Rows.Count, 2).End(xlUp).Row

If column B is ever empty then lastRow will be 1 If you want to keep your range from including row one then test if lastRow is 1 then lastRow is 2

lastRow = Cells(Rows.Count, 2).End(xlUp).Row
If lastRow = 1 Then lastRow = 2

 

[Fluff]

Replace this

Set DeleteRange = ActiveSheet.Range("A2:A" & lastRow, "B2:B" & lastRow)

with

Set DeleteRange = ActiveSheet.Range("A2:B" & lastRow)

 

[MARK858]

An ugly possible alternative .....

Sub deleteme()
    On Error Resume Next
    Range(Range("A2"), Range("A:B").Find("*", , xlValues, , xlByRows, xlPrevious)).ClearContents
    On Error GoTo 0
End Sub