この関数をVBAに入れたい

Question

A列にリスト(例、部活名)、B列に値(例、人数)になります。
B列のセルに、値が０と言う数字はなく、０の場合は、ブランク(空白)となってます。

C列のセルには、右記の関数が入っています=IF(A4<>"",IF(B4<>"",B4*25,0),"")

A列に何かしらの値が入っている場合
→B列にも値が入っている場合は、B列×25
→B列にも値が入っていない場合は、０
A列に何も値が入っていない場合→空白

集計を行う前の下準備として、行ってる作業です。

単純にA列に何かしら値が入っている行をあわせて、B列を範囲選択し、置き換えで空白セルを0に置換を行い、B列の０以上の数字は、×25を行えばいい話ですが、、、

①処理する件数が一万件程度
②Excel初心者が、一万近くのデータの範囲選択するのは大変

という二点から、上記のような関数を入れました。
しかし、デメリットもあります。

データが重かったり、月毎に件数に変動が生じるため、A列に何かしらの文字列があるセルまで、上記関数を入れD列に、値のみ(計算結果)はりつけを行うマクロの作成は可能でしょうか

Answer 1

1行目が見出しで、2行目からデータだとして、

Sub ボタン1_Click()
    With ActiveSheet.UsedRange.Columns(3).Offset(1)
        .Formula = "=IF(A2<>"""",IF(B2<>"""",B2*25,0),"""")"
        .Value = .Value
    End With
End Sub

セル範囲のFormulaに式を代入すると、範囲の先頭セルからフィルダウンしたのと同じ結果になります。

Answer 2

結局値を貼りつけるなら、マクロの中で計算してもいいでしょうか。

Sub sample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    Dim startRow, endRow
    startRow = 2 '1行目は見出し行の場合
    endRow = ws.UsedRange.Rows.Count
    Dim i
    For i = startRow To endRow
        If ws.Cells(i, 1) <> "" Then ws.Cells(i, 3) = ws.Cells(i, 2) * 25
    Next
End Sub

Answer 3

質問の内容の処理をマクロで書くことは出来ます。
例えば

Public Sub compensation()
    Dim tSheet As Worksheet
    Set tSheet = Sheet1
    Dim tR As Long
    Dim tFlg As Boolean
    tFlg1 = False
    For tR = tSheet.UsedRange.Row + tSheet.UsedRange.Rows.Count - 1 To tSheet.UsedRange.Row Step -1
        If Not tFlg1 Then
            If tSheet.Cells(tR, 1).Value <> "" Then
                tFlg1 = True
            End If
        End If
        If tFlg1 Then
            tSheet.Cells(tR, 3).Formula = Replace("=IF(A{@}<>"""",IF(B{@}<>"""",B{@}*25,0),"""")", "{@}", tR)
            tSheet.Cells(tR, 4).Value = tSheet.Cells(tR, 3).Value
        End If
    Next
End Sub

…ちょっと違いますけど、大体こんな感じ？
※違うのが気持ち悪かったので指定の内容と一致させました。

手作業でやるよりは良いですが
もっと良い方法がありそうな気はしますね。
要件を知らないのでわかりませんが。