cell fill with condition

Pl run this "FilBlank" macro on the worksheet.
Your views are welcome.

Sub FilBlank()

Dim unifstro, unilstro, Lro, TA, TB As Long


unifstro = Range("C:C").Find("UNIVERSAL").Row
unilstro = Range("C" & unifstro).End(xlDown).Offset(-1, 0).Row
Lro = Sheets("Sheet1").Range("D3").End(xlDown).Row

For TA = unifstro To unilstro
If Range("E" & TA) = "TEX105" And Range("G" & TA) = "SSP" Then Range("H" & TA) = "20/4"
Next TA

For TB = 3 To Lro
If TB = unifstro Then TB = unilstro + 1
If Range("E" & TB) = "TEX105" And Range("G" & TB) = "SSP" Then Range("H" & TB) = "'12/2"
Next TB

End Sub

kvsrinivasamurthy@ pls check this..
Attachment 141982

I could not follow your explanation fully.I have changed code . Pl vfy Now.

Sub FilBlank()
Dim Funi As Range
Dim unifstro, unilstro, Lro, TA, TB As Long

Lro = ActiveSheet.UsedRange.Rows.Count

Set Funi = Range("C:C").Find("UNIVERSAL")

If Not Funi Is Nothing Then
unifstro = Range("C:C").Find("UNIVERSAL").Row
unilstro = Range("C" & unifstro).End(xlDown).Offset(-1, 0).Row

For TA = unifstro To unilstro
If Range("E" & TA) = "TEX105" And Range("G" & TA) = "SSP" Then Range("H" & TA) = "20/4"
Next TA
End If

For TB = 3 To Lro
If TB = unifstro Then TB = unilstro + 1
If Range("E" & TB) = "TEX105" And Range("G" & TB) = "SSP" Then Range("H" & TB) = "'12/2"
Next TB

End Sub

no friend,same problem is there,,pls see my above attachment last two rows..that both cells should fill with 12/2 but it's fill one 20/4 & other 12/2,,after running your new code also same thing happens.

I have just verified last two rows are filled with 12/2 only.
Attach your file once again , if you have problem.

I have filled column"A,B,C empty cells..after filling that cells your macro not giving correct answer.if that cells are empty it's giving correct answer..but i want get same answer in both way.. here i have attached sample sheet again ,,

Use this code.Pl try to give correct format data to reduce confusion and delay.

Sub FilBlank()

Dim Lro, TA As Long

Lro = ActiveSheet.UsedRange.Rows.Count

For TA = 3 To Lro

If Range("C" & TA) = "UNIVERSAL" Then
    If Range("E" & TA) = "TEX105" And Range("G" & TA) = "SSP" Then Range("H" & TA) = "20/4"
    Else
    If Range("E" & TA) = "TEX105" And Range("G" & TA) = "SSP" Then Range("H" & TA) = "'12/2"
End If
Next TA

End Sub

With regards.

kvsrinivasamurthy@ i'm very sorry if i wasted your time..i have provided two type of sample to u..my requirement is your macro should work with that both samplers..your last macro work with last sample but it's not work with first sample.pls help me.

Now i am busy.I willcome back to you afterwords.Dont worry.
Be happy.

no problem friend i can wait..pls do this for me..

Pl see now .The macro works on both Sheet1 and Sheet3 also.

kvsrinivasamurthy@ thanks a lot friend,,u done a great job for me.it's work very well,,thanks a lot again.. :D