How To Insert Formula Into Listbox Via VBA

I currently have some VBA code which is inserting

30 days
Cancelled

Down a column inside a list cell.

I am just wondering if there is a way to instead of saying 30 days to have the date 30 days from now?

Code I am using is:

Code:
Range("M6:M" & lngCounterC - 1).Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="30 Days, Cancelled"
End With