Hi,

Try this
Sub SameAsB()
    ActiveCell.Value = Cells(ActiveCell.Row, "B")
End Sub