Foro Excel

Saludos!
Foristas me podrian ayudar estoy elaborando una macro que borra columnas con numeros positivos y deja las columnas con numeros negativos
Este es el codigo que estoy utilizando pero me deja unas columnas, la ultima celda de la columna es la que tomo como referencia.


Sub Borra_col_positivas()

ActiveSheet.Range("E1").Select
Selection.End(xlDown).Select

While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).Select

Dim fin As Single
fin = CSng(ActiveCell)

If fin > 0 Then
Selection.EntireColumn.Delete
End If
Wend
End Sub

Esta macro no brilla por su eficiencia, pero puede ayudar.

Atte.

Sub Borra_col_positivas()
Dim fin As Single, col, i As Integer, letras, colstr As String
ActiveSheet.Range("E1").Select
letras = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'Selection.End(xlDown).Select
i = 5
Do While Cells(1, i) <> "" 'mientras contenga un valor
fin = CSng(Cells(1, i)) 'convertirlo a entero simple
If fin > 0 Then 'si es posotivo
'Selection.EntireColumn.Delete 'borro columna
col = Cells(1, i).Column
colstr = Mid(letras, col, 1)
MsgBox colstr & ":" & colstr
Columns(colstr & ":" & colstr).Delete
End If
i = i + 1
MsgBox Cells(1, i)
Loop
End Sub