c(i, y) = Application.Evaluate(a(i, y), Cells(1, 6).Value, b(i, y))

 c(i, y) = a(i, y) - b(i, y)' на месте "-" должно быть значение ячейки f1

Dim Loadarray()
ReDim Loadarray(1 To 5, 1 To 3)
ReDim Preserve Loadarray(UBound(Loadarray) + 1, UBound(Loadarray, 2) + 1)

Dim a, u As Range
For Each a In Range("A1:A100")
If a.Value = 1 Then
If u Is Nothing Then
Set u = a
Else
Set u = Union(u, a)
End If
End If
If Not u Is Nothing Then u.Select
Next
u.Select
'выделяет все ячейки в указанном диапазоне если они = 1

Rows(11).Find(What:="123", After:=ActiveCell, LookIn:=xlFormulas, _     
 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _    
  MatchCase:=False, SearchFormat:=False).Select  
a = Selection.Column 

 Sub группировка() 

Rows(11).Select
Selection.Find(What:="123", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select
a = Selection.Column 

For i = 10 To a ' вот это конечно не то что мне нужно, нужно чтобы выделялись колонки с 10 по ту где находиться "123"
   Columns(i).Select' 
Next
End Sub

=СУММЕСЛИ(Таблица2[уникальное];G15;Таблица2[Часы])/СЧЁТЕСЛИ(Таблица2[уникальное];G15)
 

Sub asdadsd()
Dim i, j, k, z

 Range("B2").Select
 Selection.CurrentRegion.Select
 i = Selection.Count
 MsgBox "i=" & i

Range(Cells(2, 2), Cells(i + 1, 2)).Select

Selection.Copy

 Range("D2").Select
 Selection.CurrentRegion.Select
 k = Selection.Count
 MsgBox "k=" & k

For j = 1 To (k - 1)

Cells(j * i + 2, 2).Select

Selection.PasteSpecial Paste:=xlPasteValues

Next

Range(Cells(2, 4), Cells(k + 1, 4)).Select
Selection.Copy

For z = 1 To (i - 1)

Cells(z * k + 2, 4).Select

Selection.PasteSpecial Paste:=xlPasteValues

Next 

 Range("B2").Select
  Selection.CurrentRegion.Select
    Application.CutCopyMode = False 'вот тут заканчивается обдуманная часть, далее макрорекордер

    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B2:B16")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End Sub

With CreateObject("scripting.dictionary": .comparemode = 1  ' тут создаем словарь,  
        a = [e1].currentregion.Value 'тут придаем ему значения которые найдутся через currentregion
        For i = 2 To UBound(a) 'Здесь цикл для всех значений Строк?
            For ii = 2 To UBound(a, 2) 'тут ничего не понятно
                .Item(a(i, 1) & "|" & a(1, ii)) = a(i, ii) 'тут оккультные символы

Next
        Next
 
        a = [l1].currentregion.Value 'здесь мы создаем массив куда попадают данные
        For i = 2 To UBound(a): a(i, 3) = .Item(a(i, 1) & "|" & a(i, 2)): Next ' ничего не понятно
        [l1].currentregion.Value = a
 
    End With