You can use a "for" loop to go through all cells in the target.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Not Intersect(Target, Range("B:B")) Is Nothing Then
For Each cel In Target
cel.Offset(0, -1) = "Some Value"
Next cel
End If
End Sub