巨集

下列這一段我想改到巨集去做自動執行,可是貼過去之後,不管什麼條件,他的數值都是會變紅色的,請問要怎麼修改,謝謝
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 4 To 152
If Target.AddressLocal = "$N$" & i And Cells(i, 14) = "" And Cells(i, 13) > Cells(1, 121) Then
Cells(i, 13).Font.Color = RGB(255, 0, 0)
End If
If Target.AddressLocal = "$O$" & i And Cells(i, 16) = "" And Cells(i, 15) < Cells(1, 121) Then
Cells(i, 15).Font.Color = RGB(255, 0, 0)
End If
Next
End Sub