You can simplify the macro by using the optional parameter for Weekday which tells it what day to start the week on. I.e. the body of the macro could be

dteMonday = Date - Weekday(Date, vbMonday) + 1
Selection.InsertAfter dteMonday

In this case Weekday returns 1 for Monday, 2 for Tuesday etc.