Sorting by name blank cell issue

[pujo]

Hello,
I am trying to sort a column after an item is removed.
Is is sorted by name. I remove the name and hit sort and it works fine but I am left with a blank cell. Is there anything I can do for this?
Here is the code.

Private Sub CommandButton1_Click()
Range("A1:A10").sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Thanks,
Pujo

 

[mikerickson]

You remove the name and you are left with a blank cell.
What do you want instead of the blank cell?

 

[pujo]

Nothing.
It is just column A with 10 or so items.
From time to time I have to remove an item, thus causing a blank cell in the column between cell A1 and A10. After I hit sort I am left with a blank cell in the range of A1:A10. Just don't want the blank cell, want to get all items one under another with no blank cells. The cell is usually A1, at the very top. If I could just make the blank cell be at the bottom of the list, that way it looks ok and all in order.

Thanks

 

[mikerickson]

Sorting usually takes blank cells to the bottom of the range, are they truely blank cells or do they contain ""?
If so, this should work

Sub Button1_Click()
    With Range("A1:A10")
        .Value = .Value
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
End Sub

 

[pujo]

There is nothing in these cells.
Just select the cell hit the space bar to clear out the name.
Hit sort and the blank cell is now at the top of the list¿ not at the bottom.
Go figure¿

 

[mikerickson]

Select a cell, hit the space bar, and the cell is not blank, it contains the string " ".

This will deal with that

Sub Button1_Click()
    Dim oneCell As Range
    With Range("A1:A10")
        For Each oneCell In .Cells
            .Value = Application.Trim(.Value)
        Next oneCell
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
End Sub

 

[pujo]

So what do in order to clear the cell?
Right click clear contents then sort?
If this is so, how can I automate this to the cell that I have cleared out?
There has to be a simple way? I think?
Thanks for the reply!

 

[mikerickson]

See my edited post above.

 

[pujo]

See my edited post above.

I added your code and nothing happens. Like the macro doesn't run, but no errors. I just did a copy & paste of the code.

Any ideas?

Wait, I think its me. Give me a sec to see what I did wrong..............

 

[pujo]

That did it.
Don't really know what I did, but it works correctly now.

Again, thanks for your time.

Pujo