Sub LoopRange()
    Dim lastrow, i, lastfilterrow As Variant
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    lastfilterrow = Range("C" & Rows.Count).End(xlUp).Row
    For j = 2 To lastfilterrow
        For i = 2 To lastrow
            If Range("A" & i).Value Like "*" & Range("C" & j).Value & "*" Then
                Range("B" & i).Value = Range("C" & j).Value
            End If
        Next i
    Next j
End Sub