delete value last 2 row

[john_cash]

hello all
how can I delete the values of the last two lines in a workbook from column B to column Q
The rows are not fixed
john

 

[Fluff]

How about

Sub john_cash()
   Range("B" & Rows.Count).End(xlUp).Offset(-1).Resize(2, 16).ClearContents
End Sub

 

[MARK858]

Just another option...

Sub xxxxx()
	Dim xrow As Long
	xrow = Columns("B:Q").Find("*", , xlValues, xlByRows, xlPrevious).Row
	Range("B" & xrow - 1 & ":" & "Q" & xrow).ClearContents
End Sub

 

[john_cash]

Thanks fluff and mark858
both work
Thank you
john

 

[Fluff]

You're welcome & thanks for the feedback