Need help writing a Macro to return multiple entries given an account ID and sales days

Hello,

I'm rather new to VBA coding and would like to get some help writing a macro.

I have a workbook with account numbers in Column D. These ID numbers are what we use as our unique identifier.

In workbook columns J through N we have delivery day columns (M = Monday, T =Tuesday, all the way through Friday). Salesmen then go and enter a 1 in that column if they want an account to be delivered to on that day.

I'm having trouble when it comes to requests to deliver to an account twice a week. For example an account wants to receive a delivery on Tuesday and Friday.

My ask is to please help me write a macro to return the account ID listed in Column D, in Column A on a new tab and to return a day number in Column B if they put a 1 in columns J through N (Monday would be 1, Tuesday 2, etc). If an account wants multiple delivery days there would have to be multiple account ID's with their own entry. For example

Acct "HID99999" wants a delivery on Monday and Thursday, I would need the following returned:

Column A Column B
HID99999 1
HID99999 4




If anyone could please help me out with this, it would be greatly appreciated.

Thanks.