Data from Second column to previous column if condition meet

[Vishaal]

Thanks in advance,

we have the following data:-

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S
1	id	S.No.	CATEGORY	BOOK TITLE (Roman)	BOOK CODE	BOOK PRICE	Author name English	Language	SUBJECT	Binding	Publisher	Stock	Stock/Out of stock		Page No.	Length (CM)	Width (CM)	Height (CM)	Weight
2
3	978938966	8	Testing	How to win	7926	320.00	Editorial Board	English	COMPETITION BOOKS	paperback	PRAKASHAN	50	Stock		356	27.3	19.5	1.3	549
4	978938966	8	Testing	prace more self	6926	315.00	Editorial Board	English	COMPETITION BOOKS	paperback	PRAKASHAN	50	Stock	Out of Stock	380	27.3	19.5	1.5	579
5	978938966	8	Testing	master the skill	5962	650.00	Editorial Board	English	COMPETITION BOOKS	paperback	PRAKASHAN	50	Stock		480	27.3	19.5	0.8	280
6	978938966	8	Testing	C++ programme	3926	450.00	Editorial Board	English	COMPETITION BOOKS	paperback	PRAKASHAN	50	Stock		380	27.3	19.5	0.5	150
Hindi

its a sample data, we have large data in that we want to VBA/Excel will check and if find the value "Out of Stock" in column N, it will cut from here and paste in previous column. i mean in sample data like M4 will be change to "Out of Stock"

 

[Fluff]

Can column N have anything other than "Out of Stock" in it?

 

[Vishaal]

No

Can column N have anything other than "Out of Stock" in it?

 

[Fluff]

Ok, how about

Sub vishaal()
   With Range("N2:N" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlConstants)
      .Offset(, -1).Value = .Value
      .ClearContents
   End With
End Sub

Remove the line in blue if you don't want to remove the value from col N

 

[Vishaal]

Thanks Fluff ji
I will check and update u

Thanks for the help

Ok, how about

Sub vishaal()
   With Range("N2:N" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlConstants)
      .Offset(, -1).Value = .Value
      .ClearContents
   End With
End Sub

Remove the line in blue if you don't want to remove the value from col N

 

[Fluff]

You're welcome