Çözüldü Her Satırda Aynı Makroyu Çalıştırma

Arkadaşlar merhaba,

Aşağıda yazdığım kodları sayfadaki her satır için nasıl uygulayabilirim. Yani benim yazdıklarım sadece 2. satırda çalışıyor. Ama ben çalıştığım sayfada kaç satır varsa hepsinde çalışsın istiyorum. Kodlarda C2'de TRY yazıyorsa ve A2 ile B2 aynı ise o satırı yeşile boyuyor. Veya C2'de USD yazıyorsa ve A2 ile B2 aynı ise o satırı kırmızıya boyuyor.


"""""
Sub Makro8()
'
' Makro8 Makro
'

'
Dim try As Integer
Dim yp As Integer
Dim cinsi As Variant
try = Range("A2")
yp = Range("B2")
cinsi = Range("C2")
birinci:
If cinsi = "TRY" And try = yp Then
Rows("2:2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Rows("2:2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If cinsi = "USD" And try = yp Then
Rows("2:2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else

End If
End If
End Sub
"""""