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