I have a pieces of code I know (or at least strongly suspect) is not the most efficent way of doing this action:

I have an IF statement that looks at a range of date, and if the previous month is not January, run code, and if it is January, run very similar code.
This code runs as desired, but wondering if there is a more efficient way to achieve the results

Here is what I have:

If MonthName(Month(Now)) <> "January" Then 'If not January replace the YYYY with current year
    Selection.Replace What:="1932", Replacement:=Year(Now()), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="1935", Replacement:=Year(Now()), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Else 'If January replace the YYYY with previous year
    Selection.Replace What:="1932", Replacement:=Year(Now) - 1, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="1935", Replacement:=Year(Now) - 1, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End If