Add rows after a set of data.

Try:

Sub TryThis()
Dim icell As Long, lastrow As Long

Application.ScreenUpdating = False

lastrow = Range("F" & Rows.Count).End(xlUp).Row

For icell = lastrow To 2 Step -1
    If Range("F" & icell).Value <> Range("F" & icell - 1).Value Then
        Range("F" & icell).EntireRow.Insert Shift:=xlDown
    End If
Next icell
    
Application.ScreenUpdating = True

End Sub