Increment invoice number and clear/save

i am tying to write some code that on my invoice
i can +1 invoice number save in new workbook and then clear contents and close
thanks my invoice number cell is e4
and contents i would like to clear is a18:d38


many thanks
roger

See the attached example.