shift cells to the left

[marc005]

My worksheet looks like this:

A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
7 Days Group Holdings	SVN	13.59	13.59	13.5	13.54	-0.05	-0.37	57,657	13.6	8.1	...	...	23.93	12.27
0-9 | A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z
A	Symbol	Open	High	Low	Close	Net	%Chg	Vol	52 Week	52 Week	Div	Yield	PE	YTD
						Chg			High	Low				%Chg
	AAR Corp.	AIR	16.56	16.62	16.02	16.52	...	...	343,435	20.44	10	0.3	1.82	9.72	-11.56
Aaron's Inc.	AAN	28.29	28.6	28.03	28.35	-0.18	-0.63	269,243	32.53	24.61	0.07	0.24	12.42	0.25
ABB ADS	ABB	21.37	21.42	21.01	21.21	-0.21	-0.98	2,130,306	23.37	15.26	0.74	3.48	18.5	2.02
Abbott Laboratories	ABT	37	37.22	36.56	36.89	-0.31	-0.83	5,301,339	37.55	28.4	0.56	1.52	11.15	17.71
Advanced Micro Devices	AMD	2.47	2.51	2.43	2.46	-0.01	-0.4	14,009,379	7.72	1.81	...	...	... dd	2.5
Advanced Semiconductor Engineering ADS	ASX	4.3	4.3	4.25	4.3	0.02	0.47	329,354	4.65	3.14	0.11	2.57	14.81	0.47
Advantage Oil&Gas	AAV	3.71	3.74	3.63	3.65	-0.06	-1.62	110,525	4.2	2.47	...	...	... dd	12.65
Advantest Corp ADS	ATE	13.94	14.04	13.86	13.94	-0.25	-1.76	9,357	17.25	10.8	...	...	51.1	-13.52
AECOM Technology	ACM	28.38	28.86	27.71	28.59	0.37	1.31	838,632	33.09	14.5	...	...	... dd	20.13
Aegean Marine Petroleum Network	ANW	5.87	5.96	5.74	5.91	...	...	63,241	7.88	4.28	0.04	0.68	13.74	11.93
Aegon NV ADS	AEG	5.91	5.94	5.81	5.92	0.02	0.34	643,559	6.95	3.93	0.29	4.96	6.59	-8.07
AerCap Holdings	AER	15.3	15.4	15.17	15.29	...	...	361,516	16.57	10.6	...	...	12.74	11.44
Aeroflex Holding	ARX	7.09	7.19	7.02	7.18	0.04	0.56	22,563	11.5	5	...	...	... dd	2.57
A	Symbol	Open	High	Low	Close	Net	%Chg	Vol	52 Week	52 Week	Div	Yield	PE	YTD
						Chg			High	Low				%Chg
	Aeropostale	ARO	13.05	13.22	12.64	13.04	-0.01	-0.08	1,551,799	23.05	11.76	...	...	30.26	0.23
AES	AES	12.88	13.01	12.7	12.92	0.05	0.39	3,836,382	13.2	9.52	0.16	1.24	... dd	20.75
Aetna	AET	55.88	55.88	54.88	55.02	-0.85	-1.52	1,909,309	56.92	34.58	0.8	1.45	11.32	18.81

<tbody>
</tbody>

You can see that for some reason the rows that has a value in column P has been shifted one step to the right. How can I correct this?
Preferably I a loop that checks if cell(i,16) has a value then shift the row one step to the left. Also there are more rows than shown above.

 

[AlphaFrog]

[color=darkblue]Sub[/color] P_Shift()
    [color=darkblue]Dim[/color] cell   [color=darkblue]As[/color] Range
    Application.ScreenUpdating = [color=darkblue]False[/color]
    [color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] Range("P:P").SpecialCells(xlCellTypeConstants)
        Range("A" & cell.Row).Delete Shift:=xlShiftToLeft
    [color=darkblue]Next[/color] cell
    Application.ScreenUpdating = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[marc005]

Thanx for your help AlphaFrog. The code works great
You saved me a lot of trial and error time.

 

[AlphaFrog]

You're welcome.