Delete all rows after last used row

[ItalianPlatinum]

I found this VBA code on this site. but it doesn't work. and was hoping if someone could assist me as to why

I am looking to delete all rows below the last row of data in column A. I noticed my excel creates many unused rows after my other code runs.

    Dim bottomrow, lastblank As Long

bottomrow = Workbooks("Compare").Sheets("Periodic").UsedRange.rows.count
lastblank = Workbooks("Compare").Sheets("Periodic").Cells(rows.count, 1).End(xlUp).row + 1
  
Range("A" & lastblank & "A" & bottomrow).EntireRow.Delete

 

[MARK858]

Then you have something strange in your cells.
The After parameter in Find is for doing the lookup, basically when using XLPrevious it looks at the cell before A1 which is the last cell on the sheet and then it looks backwards from there, changing it to B1 changes the start point of the search.
What happens with

Sub LoseThatWeight()

    Dim x As Long, LastRow As Long

    Application.ScreenUpdating = False

    With Sheets("Compare")
        LastRow = .Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).row
        .Rows(LastRow + 1 & ":" & Rows.Count).delete
    End With
   
    Application.ScreenUpdating = True
End Sub

 

[ItalianPlatinum]

Then you have something strange in your cells.
The After parameter in Find is for doing the lookup, basically when using XLPrevious it looks at the cell before A1 which is the last cell on the sheet and then it looks backwards from there, changing it to B1 changes the start point of the search.
What happens with

Sub LoseThatWeight()

    Dim x As Long, LastRow As Long

    Application.ScreenUpdating = False

    With Sheets("Compare")
        LastRow = .Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).row
        .Rows(LastRow + 1 & ":" & Rows.Count).delete
    End With
  
    Application.ScreenUpdating = True
End Sub

Lean, mean and fighting machine now