Update date when initialize

Here's the code..

Private Sub UserForm1_Initialize()

    UserForm1.Value = 1
    StartDate.Value = Date - 2
    EndDate.Value = -1

End Sub

Dim a As Integer


Private Sub CommandButton1_Click()


Dim dStart As Date
Dim dEnd As Date
Dim pt1 As PivotTable
Dim pf1 As PivotField
Dim pi1 As PivotItem

    
    Sheets("WB Out").Select

    Application.ScreenUpdating = False
    On Error Resume Next
    


    dStart = StartDate.Value
    dEnd = EndDate.Value

'Pivot table 1

    Set pt1 = ActiveSheet.PivotTables("PivotTable4")
    Set pf1 = pt1.PivotFields("MFG_Date_Out")

    pt1.ManualUpdate = True
    pf1.EnableMultiplePageItems = True

    For Each pi1 In pf1.PivotItems
        pi1.Visible = True
    Next pi1

    For Each pi1 In pf1.PivotItems
        If pi1.Value < dStart Or pi1.Value > dEnd Then
        pi1.Visible = False
    End If
    Next pi1

    Application.ScreenUpdating = False
    pt1.ManualUpdate = False

    Set pf1 = Nothing
    Set pt1 = Nothing
    Sheets("MainMenu").Select
    End
    
End Sub

Private Sub EndDate_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub StartDate_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub