Отображение ошибки в команде «Диапазон автозаполнения» путем задания диапазона активной ячейки для последней строки столбца

Question

Я сталкиваюсь с этой проблемой, я просто хочу ввести данные в текстовое поле формы пользователя, и это значение должно быть автоматически заполнено от строки до последней строки столбца B. с этим кодом у меня ошибка с диапазоном от активная ячейка до последней строки столбца. найдите последнюю строку кода range.kindly, выпустите эту проблему.

Private Sub CommandButton2_Click()

Dim irow As Long
Dim activeworksheet As Worksheet
Dim lastrow As Long


    irow = ActiveWorkbook.Worksheets("Master sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1

    lastrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row

    Set activeworksheet = ThisWorkbook.Worksheets("master sheet")

    With activeworksheet

    .Cells(irow, 1) = UserForm1.TextBox1.Value

    .Cells(irow, 1).Select

    Selection.range(range("Activecell"), range("A" & Cells(Rows.Count, "B").End(xlUp).Row)).FillDown


    End With

End Sub

Answer 1

Это именно то, что вам нужно? Не уверен, что я полностью понимаю.

With activeworksheet
    Range(.Cells(irow, 1), .Cells(lastrow, 1)).Value = UserForm1.TextBox1.Value
End With