最初の空白セルを見つけた後、VBAを使用して数式を下にドラッグする方法

Question

文字列（「Decliners」）をExcelの列にドラッグする手助けが必要です。どのセルが私の出発点であるか分かっていたら、これを行う方法はわかっていますが、まずデータセットの最初の空白行を見つけなければなりません。
最初の空白の行が見つかると、列C3から列をドラッグする必要があります。
この文字列は1列だけドラッグされています。私はまた、このデータセットの範囲が動的であることを考えると、その範囲を知らない。

本質的には、セルの右下をダブルクリックするアクションを再作成するだけで、データセットの末尾に「Decliners」という語句を埋め込む必要があります。コードのこの部分から最後のデータセットの後の行から変数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 

：

コードは、ワークシートの最初の空白セルを選択します範囲C3は、列Cの列Dの使用済みデータの最後の対応する行まで降下します。