Sub myhello()
'Range("A1:b1").Cut Range("C1")
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1) <= 0.01 Then Cells(k, 1) = 0
Next k
End Sub
Sub myhello()
'Range("A1:b1").Cut Range("C1")
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1) <= 0.01 Then Cells(k, 1) = 0
Next k
End Sub