With VBA

For Each cell In Range("B2:G22")
If cell.Value = "B" Then
cell.Value = Cells(cell.Row,"A").Value
End If
Next cell

--
HTH

Bob Phillips

"AMK" wrote in message
...
How can I substitute each instance of "B" in a range (B4..g22) with the
value
in
Column A same row as the Corresponding "B". Not all cell in range have the
"B"

Al