Hi gally,

Welcome to the forum.

If your data was in column A then maybe something like the below:
Sub test()    
    Dim rng As Range, rCell As Range
    
    Set rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    
    For Each rCell In rng.Cells
        If rCell.Offset(, 4).Value >= 2 Then rCell.Value = rCell.Value + 1
    Next rCell
End Sub
Hope this helps