Function f(ОбластьПоиска As Range, ОбластьВставки As Range)
  Dim n%, i%
  f = 1
  n = Application.Caller.Column - ОбластьВставки.Column + 1
  If IsEmpty(ОбластьПоиска.Cells(1, n)) Then f = "": Exit Function
  If n = ОбластьПоиска.Columns.count Then Exit Function
  If Not IsEmpty(ОбластьПоиска.Cells(1, n + 1)) Then Exit Function
  For i = n + 1 To ОбластьВставки.Columns.count
    If IsEmpty(ОбластьПоиска.Cells(1, i)) Then f = f + 1 Else Exit Function
  Next
End Function

Function ПустыеЯчейкиСчёт(ОбластьПоиска As Range, ОбластьВставки As Range)
  Dim n%, i%, s%
  ПустыеЯчейкиСчёт = 1
  'ОбластиВставки - находим порядковый номер ячейки содержащую нашу формулу
  n = Application.Caller.Column - ОбластьВставки.Column + 1
  'ОбластиПоиска - если ячейка с таким же порядковым номером пустая, то выходим из функции
  If IsEmpty(ОбластьПоиска.Cells(1, n)) Then ПустыеЯчейкиСчёт = "": Exit Function
  'ОбластиПоиска - если ячейка с таким же порядковым номером заполнена, то начинаем подсчёт
  For i = n To ОбластьВставки.Columns.count
    If i < ОбластьПоиска.Columns.count Then 'если не подошли к концу диапазона
        If IsEmpty(ОбластьПоиска.Cells(1, i + 1)) Then ПустыеЯчейкиСчёт = ПустыеЯчейкиСчёт + 1 Else Exit Function
    Else 'если подошли - начинаем перебор с начала диапазона
        For s = 1 To n
          If IsEmpty(ОбластьПоиска.Cells(1, s)) Then ПустыеЯчейкиСчёт = ПустыеЯчейкиСчёт + 1 Else Exit Function
        Next
    End If
  Next
  
End Function