Ввод каждый понедельник вторник и пятницу в качестве даты

Привет! Мне нужно ввести дату каждого понедельника, вторника и четверга в верхней части листа, чтобы использовать ее в качестве регистра. Я посмотрел на приведенную ниже таблицу, и она работает в течение двух дней. Не могли бы вы помочь мне продлить ее до 3 дней? неделя. Я использую Excel 2010. Большое спасибо

Выбор даты каждого понедельника и среды из диапазона дат

Если вы хотите понедельник, вторник и пятницу (не четверг), попробуйте этот короткий макрос:

Sub DateMaker()
    Dim d As Date, K As Long, fmt As String
    K = 1
    d = CDate(Now)

    For i = 1 To Columns.Count
        fmt = Format(d, "dddd")
        If fmt = "Monday" Or fmt = "Tuesday" Or fmt = "Friday" Then
            Cells(1, K).Value = d
            K = K + 1
        End If
        d = d + 1
    Next i

    Rows(1).Cells.NumberFormat = "ddd d/m/yyyy"
End Sub

Это начинается с сегодняшней даты.