如何在找到第一个空白单元格后使用VBA向下拖动公式(自动填充)

Question

我需要一些帮助在excel中的列中拖动一个字符串("Decliners").如果我知道哪个单元格是我的起点,我知道如何做到这一点,但我首先要找到数据集中的第一个空白行.
一旦我找到了我的第一个空白行,我需要从C3列中拖出我的字符串.
此字符串仅向下拖动一列.鉴于它是动态的,我也不知道这个数据集的范围.

基本上我只需要重新创建双击单元格右下角的操作,并将"Decliners"一词填充到数据集的底部.

用于选择工作表中第一个空白单元格的代码:

Dim Pastesheet As Worksheet
Dim Decliners As String
Decliners = "Decliners"

Set Pastesheet = Worksheets("Ent Gainers_Decliners")
Pastesheet.Range("C3").End(xlDown).Offset(1, 0).Select
'Where I need the word "Decliners" dragged down from the cell selected

Answer 1

With Pastesheet
    .Range(.Range("C3").End(xlDown).Offset(1),.Cells(.Rows.Count,4).End(xlUp).Offset(,-1)).Value = Decliners
End With

这段代码将变量的值Decliners从最后一个数据集之后的行设置为Range C3down,直到列D的列中最后一个相应的使用数据行C.