VBA macro to copy last non blank cell on a certain range that has formula

Hey all,

I have asked for help on a certain task I have been trying to finish, but no luck so far, so I decided to change my logic a bit:

I have a sheet where I fill in sales from rows 18 to 32, along with a few other cells that are always the same, and I want to copy them to a sheet called db, which is my database.

I want to copy:
B18 & last cell with value from B18:B32
I18 & last cell with value from I18:I32, it has a formula that if column B is blank, they will be blank, if not $L$5+1 which is my contract number.

Is there a code to get the last value from a range that has something written instead of a formula?