Формулы VBA выросли в отчете EXCEL

Я работаю над отличным отчетом. Я получил некоторую помощь на этом сайте с редактированием моего кода, но я застрял в одном месте и понятия не имею, как действовать дальше. Итак, у меня есть код здесь:

Dim xlStartCol As Long xlStartCol = xlCol Do While Not g_RS3.EOF With xlSheet.Cells(xlRow, xlCol) .Resize(1, 2).Merge .Value = "TEST" 'g_RS3("ShortLabel") .Offset(1, 0).Resize(1, 2) = Array("Clients", "Students") .Offset(2, 0).Resize(1, 2).ClearContents With .Offset(0, 1) .Resize(1, 2).Merge .Value = "Total" 'keep writing Total to the right; it will be overwritten if there is another ShortLabel .Offset(1, 0).Resize(1, 2) = Array("Clients", "Students") .Offset(2, 0).Resize(1, 2).Formula = _ "=SUMIFS(" & Range(.Parent.Cells(xlRow + 2, xlStartCol), .Parent.Cells(xlRow + 2, xlCol + 1)).Address(0, 1) & Chr(44) & _ Range(.Parent.Cells(xlRow + 1, xlStartCol), .Parent.Cells(xlRow + 1, xlCol + 1)).Address(1, 1) & Chr(44) & _ .Parent.Cells(xlRow + 1, xlCol - 1).Address(1, 0) & Chr(41) End With With .Resize(2, 4) .Font.Bold = True .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter .Borders.Weight = xlThin End With End With xlCol = xlCol + 2 g_RS3.MoveNext Loop 

Это делает мой отчет таким. То, что я пытаюсь сделать, это использовать свойство fillDown для диапазона автозаполнения [формула находится в 2-х местах под TOTAL, одна под клиентами и одна под учениками. sumifs: клиенты переходят из ячейки в ячейку и захватывают количество клиентов для каждого заголовка TEST, то же самое со студентами] (эта строка – где формула): и + 6 строк вниз. В принципе, я хочу иметь формулу во всех 7 строках. Пожалуйста, помогите мне. Ниже приведен пример того, что делает этот код.

введите описание изображения здесь

Как насчет того, чтобы просто придерживаться этого утверждения после того, как вы сделаете свою формулу

 .Offset(2, 0).Resize(1, 2).AutoFill .offset(2,0).Resize(7,2) 

Вы также можете сделать это

 Range("J4:J10").Formula = "=yourformulahere" 
Давайте будем гением компьютера.