Merhaba;
Aşağıdaki kodu butonunuzun kod kısmına ekleyip dener misiniz ?
İyi çalışmalar.

Dim dolu_sutun, i As Integer

dolu_sutun = WorksheetFunction.CountA(Range("1:1"))



    For i = 2 To dolu_sutun

        If WorksheetFunction.Weekday(Cells(1, i), vbMonday) > 5 Then

            Cells(1, i).Interior.Color = 65535

            Cells(1, i) = Cells(1, i) & "_T"

        End If

    Next i

    Msgbox "İşlem tamamlandı."

Range("A1").Select