B Sütununa Göre Sıra No Verme G Sütununa Göre Renklendirme

[askm]

Kolay gelsin.
Aşağıdaki 1. kod ile sıra no veriyorum.
2. Kod ile de G sütununa göre satır renklendirmek istiyorum.Ama kodları birleştiremedim.
1.Kod

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
s = Range("A4")
If Intersect(Target, Range("b4:b65536")) Is Nothing Then Exit Sub
For i = 5 To Range("b65536").End(3).Row
'If Target = "" Then
'Target.Offset(0, -1) = Empty
'Else ': Exit Sub
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

2.Kod

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "7" And Target.Value = "ÖDENMEDİ" Or Target.Value = "ödenmedi" Then
Range("A" & Target.Row & ":I" & Target.Row).Interior.ColorIndex = 38
Else
Range("A" & Target.Row & ":I" & Target.Row).Interior.Color = xlNone
End If
End Sub