Option Base 1
Sub retraiter()
Dim i As Long
Dim tabl()
tabl = Range("A2:C" & Range("A65536").End(xlUp).Row).Value
For i = LBound(tabl()) To UBound(tabl())
If tabl(i, 2) <> "" And tabl(i, 2) <> 0 Then
tabl(i, 3) = tabl(i, 2)
tabl(i, 2) = ""
End If
Next i
Range("A2:C" & Range("A65536").End(xlUp).Row).Value = tabl
End Sub