Datenbereinigung mit makro

Sub Bereinigung()

Dim i As Integer
For i = 1 To Cells(65000, 3).End(xlUp).Row
If Cells(i, 3).Value < 1 Then Cells(i, 3) = 0
Next i
End Sub

Gruss und danke