Check amount is in range if not copy to New Worksheet

Hi

Please help me for VBA Code

I have data in my active worksheet from Column A

Column A is having numbers,

Column B is description

Column D is Amount

need to check Column A and Column D be with the below Criteria
If amount column, (as per Sample its Column D) not matching with the below criteria, than those lines to be copy pasted in new worksheet, with Criteria comments

Column D is not fixed one, so that need to be selected through message box


Criteria

From To Amount Column (Currently its Column D)
100 200 Should be Positive
200 300 Should be Positive
300 400 Should be Negative
400 500 Should be Negative
405 Should Be Nil
408 Should Be Nil
500 600 Should be Positive
600 700 Should be Positive
800 900 Should be Negative
900 1000 Should be Negative

Sample file attached