Thanks all, it wasn't as hard as I thought at first, this works:

' Prepopulate the data for the first of the month, plus 60 days
hence.
Today = Date
' Now add 60 days
NextDate = DateAdd("d", 60, Today)
Dayte = Day(NextDate)

If (Dayte = 1) Then
' do nothing, it's the right day
dFinalDate = dDayte
Else
' Need to find the 1st of the following month
Dayte = Dayte - 1
dFinalDate = DateAdd("m", 1, NextDate)
dFinalDate = DateAdd("d", -Dayte, dFinalDate)
End If

Range("E8").Value = dFinalDate

By all means comment if you see any problems or can make it more
efficient, thanks again!