Option Explicit
Sub Button1_Click()

Dim row As Integer

row = 3

Do While (Range("A" & row).Value <> "")

    If Range("A" & row).Value = Range("A1").Value Then
        Range("C" & row).Value = Range("B1").Value
    End If

row = row + 1

Loop

End Sub