Autofill a cell with VBA

Hi,

I have a new worksheet from my previous macro that create a datasheet, but I want to add a text to the data if the value in the other cell bigger than 0.
Is there any solution to my problem

I already attach the sample.

Thanks,

Originally Posted by bebo021999

May be:

PHP Code: 

Sub add()
Dim cell As Range
For Each cell In Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row)
    If IsNumeric(cell) And cell.Value > 0 Then cell.Offset(, 1).Value = "'0002"
Next
End Sub 


What if I want to write "CAVL" as a header?

Attachment 817617

Works great.

Thanks Mr. bebo, I Appreciate it.