Copy several ranges to Word with VBA, based on cell values