Find last row using xlUp with value, not just formula

Hi,

Trying to erase everything in Column D that comes after a final value in Column B using the following in VBA:

lastrow=Range("B700".End(xlUp).Row+1
Range("D700:D"&last row).ClearContents

Before I reach what is probably a concatenation problem (can you erase with backwards range?), the xlUP function is giving an unwanted value because the entirety of Column B has an if statement in it. So while some cells show up blank (as indicated in the If), they are not in fact empty.

Any ideas of a workaround? Do not know how to do something similar to xlUp just to a cell with content in order to achieve what I want.

Thanks.

Maybe something like:

LastRow = Range("B:B").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

With or without a "+ 1" at the end.

Nice - that's very clever! Thanks.