You can filter by date, of course, but without VBA I think it has to be manual. Here's a VBA routine that sets it to the last 14 days, including today:
Sub FilterPivotByDate()
Dim pvt As Excel.PivotTable
Dim DaysToShow As Long
Dim DateString As String
Set pvt = ActiveSheet.PivotTables(1)
DaysToShow = 114
DateString = Format(Date - (DaysToShow - 1), "m/d/yyyy")
With pvt.PivotFields("date")
.ClearAllFilters
.PivotFilters.Add Type:=xlAfterOrEqualTo, Value1:=DateString
End With
End Sub