Delete all after last row

Hey folks.
Im useing the below code to delete all information below the last populated row on each spreasheet. Unfortunately, my code appears to be deleting the last populated row too.
What is the best way to correct my code?

Cheers

'***Deletes everything below final row***
   lrow = Cells(2, 2).End(xlDown).Row
    Range(Cells(lrow, 1), Cells(Rows.Count, 1).End(xlToRight)).Delete Shift:=xlUp