Loop to Selection.Delete Shift:=xlUp

[Leandroarb]

Hi,
Please, a need delete cells equal "*".
I try use this code:

Sub DelTry()
On Error Resume Next
Do While ActiveCell <> ""
    If ActiveCell.Value <> "*" Then
    ActiveCell.Offset(1, 0).Select
    Else
    Selection.Delete Shift:=xlUp
    End If
Loop
End Sub

But... suceless

The datas are in columns

[TABLE="width: 83"]
<tbody>[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]03/11/2018[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]04/11/2018[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]15/11/2018[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]02/11/2018[/TD]
[/TR]
[TR]
[TD]10/11/2018[/TD]
[/TR]
[TR]
[TD]11/11/2018[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]17/11/2018[/TD]
[/TR]
[TR]
[TD]18/11/2018[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]24/11/2018[/TD]
[/TR]
[TR]
[TD]25/11/2018[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
[TR]
[TD]*[/TD]
[/TR]
</tbody>[/TABLE]

Every form of help is appreciated.
Thank you.

 

[Fluff]

Another option

Sub RemoveStars()
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .Replace "~*", True, xlWhole, , , , False, False
   .SpecialCells(xlConstants, xlLogical).Delete xlUp
End With
End Sub

 

[Leandroarb]

I did not want to say who I am to not look superb kkk. Just kidding.
Yes Joe, I like basketball, but I do not know how to play very well, I do not know the basics.
This player is known here as "Leandrinho" or "Little Leandro".
Nobody plays basketball as well as you guys!

You are very welcome.

By the way, do you happen to be a basketball fan?
https://en.wikipedia.org/wiki/Leandro_Barbosa

 

[Leandroarb]

I did not want to say who I am to not look superb kkk. Just kidding.
Yes Joe, I like basketball, but I do not know how to play very well, I do not know the basics.
This player is known here as "Leandrinho" or "Little Leandro".
Nobody plays basketball as well as you guys!

You are very welcome.

By the way, do you happen to be a basketball fan?
https://en.wikipedia.org/wiki/Leandro_Barbosa

 

[Joe4]

I did not want to say who I am to not look superb kkk. Just kidding.
Yes Joe, I like basketball, but I do not know how to play very well, I do not know the basics.
This player is known here as "Leandrinho" or "Little Leandro".
Nobody plays basketball as well as you guys!

I wish I could say I was one of those guys who plays so well!
I am actually 2 inches taller than Leandro, but sadly, I do not have his athleticism (I have a decent inside shot, but never was a good jumper!).

By the way, I don't know if you saw above, but Fluff posted some real nice code that does not use any loops.

 

[Leandroarb]

I've seen, and I'm going to study it, I find the code very interesting.
You're a tall guy!
When I was younger I even had a good shot in basketball, but as I did not practice much I was very limited. I do not even need to tell you to know that I'm going a little better in soccer, nothing that gets me a place on a professional team but it's a fun time with my kids and friends.
But I am very disappointed with the professional football, many fights, cheats and no example of good conduct for the children, no example of sporting spirit, only money and interests.
If you want to know what real soccer is, watch the Barcelona games.

I wish I could say I was one of those guys who plays so well!

I am actually 2 inches taller than Leandro, but sadly, I do not have his athleticism (I have a decent inside shot, but never was a good jumper!).

By the way, I don't know if you saw above, but Fluff posted some real nice code that does not use any loops.