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
Bookmarks