VBA Help with Range

[decadence]

Hi I am trying to figure out how to delete rows after data, but I need to change it so "B" is a Variable like the code I am using. Can someone help with this please.

My Code

[COLOR="#DAA520"]Rng.Resize(Cells(Rows.Count, Rng.Column).End(xlUp).row)[/COLOR]

What I need is to incorporate my code into the one below

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


Set WS = Worksheets("Sheet1")
With WS
    Set LastCell = [COLOR="#DAA520"].Cells(.Rows.Count, "B").End(xlUp)[/COLOR]
    LastCellRowNumber = LastCell.Row
    Rows(LastCellRowNumber + 1 & ":" & Rows.Count).Delete
End With

 

[Fluff]

Try

Dim LastCellRowNumber As Long


With Worksheets("Sheet1")
    LastCellRowNumber = .Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Rows(LastCellRowNumber + 1 & ":" & .Rows.Count).Delete
End With

 

[decadence]

Thanks Fluff much appreciated

 

[Fluff]

Your welcome & thanks for the feedback