Как исключить выходные

[Алексей"!№]

Всем привет
Есть таблица в которой идут показания электроэнергии мне надо вывести из всех дней в определенные часы максимальные значения исключая выходные дни
Сам пытался разобраться но чето не как

[Aleksandr H.]

1)Создали дополнительный столбец с номерами дня недели.
Рабочие дни - дни с номерами от 1 до 5.
2)С помощью МАКСЕСЛИ узнали интересуемые максимумы

[Алексей"!№]

не это не то
вот к примеру от 10 до 18 часов надо найти максимум во всех строках игнорируя выходные через макрос

[Aleksandr H.]

Сообщение от Алексей"!№

через макрос

И в чем проблема?
1 Цикл For по днях
функция Weekday
2 Цикл For по часах
и гоу сравнивать

[Алексей"!№]

ну в этом не особо много понимаю

[Алексей"!№]

сможете помочь в написании макроса

[Aleksandr H.]

Option Explicit

Sub MaxValue()
    Dim i As Integer
    Dim j As Integer
    Dim max As Double
    Dim l_r As Integer
    With ActiveSheet
        l_r = .Cells(.Rows.Count, "K").End(xlUp).Row
        .Range("K8:S" & l_r).Interior.Color = xlNone
        For i = 8 To l_r
            If Weekday(.Cells(i, "A"), 2) < 6 Then
                max = WorksheetFunction.max(.Range(.Cells(i, "K"), Cells(i, "S")))
                For j = .Range("K1").Column To .Range("S1").Column
                    If .Cells(i, j) = max Then
                        .Cells(i, j).Interior.Color = vbYellow
                    End If
                Next j
            End If
        Next i
    End With
End Sub

[Алексей"!№]

мне не надо чтобы он выделял их цветом мне надо чтобы он выводил данные справа от таблицы в один столбик

[Aleksandr H.]

ну так выводите, вы ж

Сообщение от Алексей"!№

Сам пытался разобраться

а значит знаете как выводить что-либо куда-то.

[Алексей"!№]

Сможете еще раз помочь?
как я ранее писал мне надо чтобы он выводил максимальные значения с 10 до 18 игнорируя выходные в один столбик справа от таблицы