Insert blank row after max value less than X

Hello,
Please forgive me. I'm a new VBA user and can't figure this out.

I have a list that looks like this:

106
108
110
201
202
203 .... etc,

I need a vba code that finds the maximum value that is less than 200, and inserts a blank row below it. If there is no value less than 200, do nothing.

Please and Thank you!

Try this:-

Sub MG19Aug07
Dim Rng As Range, Dn As Range, Temp As Range
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Set Temp = Rng(1)
For Each Dn In Rng
    If Dn.Value < 200 And Dn.Value > Temp Then Set Temp = Dn
Next Dn
Temp.Offset(1).EntireRow.Insert
End Sub

Regards Mick

It works! Thank you so much!

You're welcome

Try this:-

Sub MG09Sep24
Dim Rng As Range, Dn As Range, Temp As Range, Num As Long
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
For Each Dn In Rng
    If Dn.Value < 200 And Dn.Value > Num Then
        Set Temp = Dn: Num = Dn
    End If
Next Dn
If Num > 0 Then Temp.Offset(1).EntireRow.Insert
End Sub

Regards Mick

Works lovely! You are an angel! Thank you.