Arrange column after delete

[Gil]

Hello,

I have a worksheet with data:

SerialNumber Name
1 Dan
2 Joe
3 Kelvin
4
5
6
7
8
9
10

My user sometimes delete one name, for example:
1
2 Joe
3 Kelvin
4
5
6
7
8
9
10

I want to write a macro that will shift the remaining names up:

1 Joe
2 Kelvin
3
4
5
6
7
8
9
10

How can I do this ?

Thank you
Gil D.

[And1]

I guess, that names are in column "B".

Try this:
Private Sub CommandButton1_Click()
For Each cell In Range("B1:B10")
If cell.Value = "" Then cell.Delete Shift:=xlUp
Next cell
End Sub

Kind Regards,
Andrzej

Gil napisał(a):
> Hello,
>
> I have a worksheet with data:
>
> SerialNumber Name
> 1 Dan
> 2 Joe
> 3 Kelvin
> 4
> 5
> 6
> 7
> 8
> 9
> 10
>
> My user sometimes delete one name, for example:
> 1
> 2 Joe
> 3 Kelvin
> 4
> 5
> 6
> 7
> 8
> 9
> 10
>
> I want to write a macro that will shift the remaining names up:
>
> 1 Joe
> 2 Kelvin
> 3
> 4
> 5
> 6
> 7
> 8
> 9
> 10
>
> How can I do this ?
>
> Thank you
> Gil D.
>

[Gil]

Thank you very much for your help.