OK様

ありがとうございます。

下記のみにしたのですが、「Range("L26")..End(xlDown)..Value = "◯"」が
赤文字になり、[]で囲む必要があります・・・となってしまいます。
どこが間違っているのでしょうか？

Sub hani()
   
   Range("L26")..End(xlDown)..Value = "◯"
End Sub

宜しくお願い致します。

 質問の意味を取り違えてるかもしれませんが。

 Dim lastrw as integer
   lastrw=Range("A26")..End(xlDown).Row
   Range(Range("L26"),Range("L" & lastrw)).Value = "◯"

こんな感じかな？

＞Range("L26").Select
＞Selection.End(xlDown).Select
　　↓
Sub test()
    With Range("L26").End(xlDown)
        If .Row = 500 Then '最終行まで空白なし
            Exit Sub
        Else
            Range("L26", .Offset(1)) = "○"
        End If
    End With
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞L132セルの関数を削除します。（手作業）

マクロなら、この作業は不要かも

Sub test()
    Dim r As Range
    Dim m
    
    Set r = Range("L26:L500")
    
    m = Application.XMatch("〇", r, 0, -1)
    
    If IsNumeric(m) Then
        r.Resize(m).Value = "〇"
    Else
        MsgBox "すべて未入力です"
    End If
    
End Sub

あるいは

Sub test2()
    Dim r As Range
    Dim n As Long
    
    Set r = Range("L26:L500")
    
    n = Application.CountIf(r, "〇")
    
    If n > 0 Then
        r.Resize(n).Value = "〇"
    Else
        MsgBox "未入力です"
    End If
    
End Sub

マナ様
ありがとうございます。
Sub test()は削除しなくてもできるのですね。
素晴らしいです。

半平太様
いつもご指導ありがとうございます。
本当に感謝しております。

それにしても、どうしてこういうVBAができるのか、凄いの一言です。
ネットで検索してある程度はできますが、この域は達人ですよね。
私も少しづづですが、頑張っていきます。

本当にありがとうございました。