VBA - code to delete all rows below last row with data

[Kra]

Hi all,

I have a problem with my code. I need to delete all rows below last row with data in column B. Code below works, but I need to adjust it to delete all rows with no data in column B, but starting from row 10.
So it skips rows 1-9 (column B rows 1-9 contains blank cells). Any ideas how to improve it?

Sub PricingRemoveRows()


Dim WS As Worksheet
Dim LastCell As Range
Dim LastCellRowNumber As Long

Set WS = ThisWorkbook.ActiveSheet

With WS
    Set LastCell = .Cells(.Rows.Count, "B").End(xlUp)
    LastCellRowNumber = LastCell.Row
    Rows(LastCellRowNumber + 1 & ":" & Rows.Count).Delete
End With

End Sub

 

[Fluff]

How about

Sub Kra()
   Dim UsdRws As Long
   
   UsdRws = Range("B" & Rows.Count).End(xlUp).Offset(1).Row
   If UsdRws < 11 Then UsdRws = 11
   Rows(UsdRws & ":" & Rows.Count).Delete
End Sub

 

[Kra]

How about

Sub Kra()
   Dim UsdRws As Long
  
   UsdRws = Range("B" & Rows.Count).End(xlUp).Offset(1).Row
   If UsdRws < 11 Then UsdRws = 11
   Rows(UsdRws & ":" & Rows.Count).Delete
End Sub

Amazing, works like a charm! Thank you!

 

[Fluff]

Glad to help & thanks for the feedback.