требуется получить все натуральные j (2<=j<=n-1), для которых aj>aj-1 и aj>aj+1. и найти max ([a1, a2, ., an)

Option Explicit
 
Sub j_picks()
Dim i, a, j(), k
 
Range("a:a", "b:b").Clear   'очистка 1-й и 2-й колонок
[a1:a15].FormulaR1C1 = "=round(RAND(),2)" '15 случайных чисел
[a1:a15] = [a1:a15].Value   'замена формул значениями (здесь это надо!)
 
a = [a1:a15]                'помещение чисел в массив
 
For i = 2 To 14
    If a(i, 1) > a(i - 1, 1) And a(i, 1) > a(i + 1, 1) Then
        Cells(i, 2) = i 'пишем номер строки (лок. максимума) рядом, во 2-й колонке
        Cells(i, 1).Font.Color = vbRed 'красим
        k = k + 1
        ReDim Preserve j(1 To k) 'растим массив j
        j(k) = i
    End If
Next
'Показ max 1-й колонки и массива искомых номеров j
MsgBox WorksheetFunction.MAX(Range("a:a")) & " — максимум." & vbCr & vbCr & Join(j)
End Sub

Sub saddle_picks()
Const n = 20
Dim i As Long, a As Variant, picks As String, maxj As Single
 
Selection.Clear               'очистка листа от выделенного (старого графика)
Range("a:a").Clear
Range("a1:a" & n).FormulaR1C1 = "=round(RAND(), 2)" 'n чисел в 1-м столбце
Range("a1:a" & n) = Range("a1:a" & n).Value         'замена формул значениями
 
a = Range("a1:a" & n)                               'помещаем числа в массив
 
maxj = 1                                        'индекс максимального элемента
 
For j = 2 To n - 1
    If a(j, 1) > a(j - 1, 1) And a(j, 1) > a(j + 1, 1) Then
        Cells(j, 1).Font.Color = vbBlue 'красим значение локальных максимумов
        picks = picks & ",a" & j 'накапливаем (через запятую) точки максимумов
        If a(j, 1) > a(maxj, 1) Then maxj = j 'новый индекс максимального элемента
    End If
Next
        picks = Mid(picks, 2) 'стираем запятую вначале
 
'Показ значения абсолютного max (он может достигаться и не в одной точке)
MsgBox WorksheetFunction.max([a]) & " — макс. значение ряда; строка " & maxj & "."
 
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range(picks)
    ActiveChart.SeriesCollection(1).ApplyDataLabels 'искомые числа j на графике
End Sub