Создание макроса автозаполнения

sub DataEntryForm()
Dim nextRow As Long
nextRow = Base.Cells(Base.Rows.Count, 3).End(xlUp).Offset(1, 0).Row
With Base
If .Range("B3").Value = "" And .Range("C3").Value = "" Then
nextRow = nextRow - 1
End If
Base.Range("Tort").Copy
.Cells(nextRow, 3).PasteSpecial Paste:=xlPasteValues
.Cells(nextRow, 4).Value = Base.Range("Postavshik").Value
.Cells(nextRow, 5).Value = Base.Range("Date").Value
.Cells(nextRow, 6).Value = Base.Range("Clients").Value
.Cells(nextRow, 7).Value = Base.Range("Count").Value
.Range("B3").Formula = "=IF(ISBLANK(C3), """", COUNTA($C$3:C3))"
' автоматическая нумерация строк
If nextRow > 2 Then
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B" & nextRow)
Range("B3:B" & nextRow).Select
End If
.Range("Diapason").ClearContents
End With
End Sub

Sub DataEntryForm()
Dim nextRow As Long
nextRow = Base.Cells(Base.Rows.Count, 3).End(xlUp).Offset(1, 0).Row
With Base
If .Range("B3").Value = "" And .Range("C3").Value = "" Then
nextRow = nextRow - 1
End If
 ' **************
    ' nextRow содержит номер первой пустой строки для вставки
    Dim countClients&       ' количество клиентов - сократить умную таблицу клиентов, чтобы не было пустых значений
    Dim isAll As Boolean    ' на случай, если всего один клиент в таблице клиентов
    isAll = [Clients].Value = "ALL"
    If isAll Then
        countClients = [Clients_Table].Count - 1
    Else
        countClients = 1
    End If
    ' заполняем требуемое количество строк введенными данными
    Cells(nextRow, 3).Resize(countClients, 5).Value = WorksheetFunction.Transpose([Diapason].Value)
    If isAll Then   ' вставляем клиентов
        Cells(nextRow, 6).Resize(countClients).Value = [Clients_Table].Cells(2).Resize(countClients).Value
    End If
    ' дальше сами ...
 ' **************
 
' автоматическая нумерация строк
If nextRow > 2 Then
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B" & nextRow)
Range("B3:B" & nextRow).Select
End If
.Range("Diapason").ClearContents
End With
End Sub