That formula was only designed to give in a single result.
Rather that using a formula it is probably best to using a macro to filter the data instead.
Dim dateoffset As Integer
Dim lastrow As Long
lastrow = Worksheets("MainSheet").Range("A" & Rows.Count).End(xlUp).Row
dateoffset = 30
d = Date + dateoffset
Worksheets("MainSheet").Range("$A$1:$H$" & lastrow).AutoFilter Field:=8, Criteria1:=">=" & d, Operator:=xlAnd
In this example I have named the source data "MainSheet" and the sheet to where the data is pasted, "DueDate".
I have used a variable for the dateoffset, in this case the value is 30, it could be changed to some other value if needed. It could even be set to refer to a cell on a sheet that can be changed as and when required to save messing around with the code each time a change is required.
Just something to be aware of, the use of "UsedRange" could be problematic as it does select blank cells to the right and bottom if they have been used at some point.