Sub Enlarge()

Dim Arr() As Variant
Dim i As Long, j As Long

ReDim Arr(0 To 4)

Arr(0) = 50
Arr(1) = 40
Arr(2) = 39
Arr(3) = 24
Arr(4) = 99

For i = LBound(Arr) To UBound(Arr) - 1
If Arr(i) < Arr(i + 1) Then
j = j + 1
End If
Next i

Debug.Print j

End Sub

Sub Макрос3()
'
' Макрос3 Макрос
'

'
    Range("B7:B20").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "?"
    Selection.Replace What:=ChrW(8722), Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

=ВПР(A1;A1;1;0)