Goal Seek on Multiple Cells

I don't know the loop statements very well. I want to do the following goal
seek on a number of cells in the same row. Can anyone help?

Sub
Dim X As String
X = Range("A1").Value
Range("A10").GoalSeek Goal:=X, ChangingCell:=Range("B1")
If Range("B1")<Range("A1") then Range("B1") = Range("A1").Value
End if
End Sub