Please help with ignoring spaces in this listing issue.

[Kyle5195]

I am using a few animals here just to understand how to do this, as I'm dealing with hundreds of cells worth of real data.

I have tried using the istext function combined with nested if statements but no luck.

I essentially want to do the following:

Cat
0
0
Dog
0
Moose


I would like, in a separate area, for example column J, starting with row 1 to list only cells with words.
I would like the result to read:
J1 - Cat
J2 - Dog
J3 - Moose


I this possible?

Thanks!

 

[bhos123]

Copy the data , paste it in Column J , Sort J from largest to smallest

 

[Kyle5195]

I should have mentioned that I need this to be auto-populated. The cells on column J need to display the data without any extra steps (i.e. sorting) for the user.

 

[bhos123]

Assuming you have data in column A

Sub abc()

Dim lastrow As Long
Dim j As Long
j = 0

With ActiveSheet

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

End With

For i = 1 To lastrow

If Cells(i, 1) <> 0 Then
j = j + 1
Cells(j, 10).Value = Cells(i, 1)
End If

Next

End Sub