Something like:

Sheets("Trim").Rows(Sheets("Intersect").Range("B16").Value).Delete