That was so close! When I used your code, I kept getting the 2nd and not the first.
Example:
Debug.Print DateSerial(Year(Date), Month(Date), 1) - 60
Debug.Print DateSerial(Year(#07/14/2019#), Month(#07/14/2019#), 1) - 60
Returns
5/2/2019
Which got the wheels turning and I used...