Macro vba Excel recorrer columna numérica

[Hola 

Te paso la macro 

Sub macro1()
    '
    'Por Adriel
    '
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, "A") > 0 Then
            Cells(i, "B") = "SI"
        Else
            Cells(i, "B") = "NO"
        End If
    Next i
  '
  MsgBox "Fin"
End Sub

valora la respuesta como +Excelente o bueno  para finalizar 

Te anexo la macro para poner "si" y "no" en la columna B

Sub Poner_Si_No()
'Por.Dante Amor
    With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row)
        .FormulaR1C1 = "=IF(RC[-1]=1,""si"",""no"")"
        .Value = .Value
    End With
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.