Найти текстовое значение, смещение, ввести формулу на основе значений смещения

Question

У меня есть другой вопрос VBA, пожалуйста.

1. У меня есть таблица в Excel, я хочу найти текст: «Все остальные», который всегда будет в столбце B, но не может быть в той же строке #.

2. После того как я найду ячейку «Все остальные», я хочу ввести формулу суммы в следующем столбце над (0,1).

3. Формула суммирует неизвестный диапазон, начиная с 3 строк вниз от Activecell до конца данных.

Я получаю ошибка: недействительная или неквалифицированная ссылка.

PrintScreen :

У меня в настоящее время:

Dim ws As Worksheet
Dim aOther As Range
Dim DataLastRow As Range

Set ws = ActiveSheet

Set DataLastRow = ws.Cells.Range(ws.Rows.Count, 1).End(xlUp).Rows

    Set aOther = ws.Range("B:B").Find("All Other", LookIn:=xlValues, lookat:=xlWhole)
    ActiveCell.Offset(0, 1).Formula = "=SUM(" & .Offset(3, 0) & DataLastRow & ")"

Answer 1

Dim ws As Worksheet
Dim aOther As Range
Dim DataLastRow As Long

Set ws = ActiveSheet

DataLastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row

    Set aOther = ws.Range("B:B").Find("All Other", LookIn:=xlValues, lookat:=xlWhole)

    If Not aOther is Nothing Then
        aOther.Offset(0, 1).Formula = "=SUM(" & aOther.Offset(3, 1).Address & ":" & ws.Cells(DataLastRow,3).Address & ")"
    Else
        MsgBox """All Other"" not found in column."
    End If