Copying entire row if other column has a value of >1

Hello,

I have a spreadsheet with Debtor information, with names in column D and the months of payment in columns I-AR. the rows represent different people. I want to create a sheet for each months with the names of the debtors that have to pay in that month. Each debtor has the amount it has to pay in the column of the month that this is due. therefore I think this is possible using a VBA macro that copies the rows for each column when the value of that row in that colum is bigger than 1. By doing this for each colum I will get several sheets each representing one month and containing the names of the debtors that are due that month.
I tried a lot of Macro's already but none of them helped me out yet.

In short:

The names are in colum D
The months are represented in colums I - AR

I am looking for a macro that copies all rows that have values >1 in for example colum I, and then duplicate this macro for all other colums.

I hope you can help me out!

Cheers!

Derk

example.xlsx

Sorry, hereby example.
With in sheet 2 the desired result

It creates an extra sheet, but the extra sheet is empty

The original file contains confidential numbers so I cannot put it online.

I have in colum A: nothing
Colum B: account numbers
colum C: Dates
Colum D: Name of debtor
Colum E: amount
Colum F: 1 or 2 (no idea)
Colum G and H some more info about the debtor
And colums I - AR contain different months of the year.

1st rows are categorial so the values start at row 2, they continue till row 105.

I hope I have scetched the file good enough, else, ask me anything

And the name of the sheet is 'deb'