Private Sub CommandButton1_Click()
    Dim lIndex As Long
    Dim lLast As Long
    
    
    
    
    For lIndex = 1 To 65536
        If Range("A" & lIndex) <> "" Then Exit For
    Next
    
    If lIndex = 65537 Then Exit Sub
    
    
    lLast = WorksheetFunction.CountA(Range("A" & lIndex & ":A65536"))
    
    For lIndex = lIndex To lIndex + lLast - 1
        If InStr(Range("A" & lIndex), "$") > 0 Then
            Range("A" & lIndex) = "Here is that symbol"
        End If
    Next
End Sub