Logika if As Range - Formula VBA

logika :

Jika b1 = "" maka a1=""

Jika b1=terisi   maka a1=c1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim r As Range, d As Range

Set r = Range("B1:B13")

Application.ScreenUpdating = False

For Each d In r

If d.Value = 0 Then

d.Offset(0, -1).Value = 0

Else

d.Offset(0, -1).Value = d.Offset(0, 1).Value

End If

Next d

Application.ScreenUpdating = True

End Sub