Need help in how to delete certain data

[donkey]

I have a workbook which starts with data in column B. The heading of each set of data starts with Turn No. What im trying to do is to be able to delete that row and the following 2 lines under it. It will then show LTP in column B. What I need doing with that is to be cut and pasted into column A.

This is how it looks at moment.

Book1
	A	B	C	D	E	F	G	H	I
1		TurnNo	Loco/	Acti	TrainWorking	Train	Cross	Days
2		Unit	vity	Arr	Dep	Id	Rte	Refs
3		-----------------------------------------------------------------------------------------
4		LTPBY1751
Sheet1

And I need it to look like this

Book1
	A	B	C	D	E	F
1
2
3
4	LTPBY1751
Sheet1

Can anyone help. I also need it to carry on doing it right the way down the page.

Many Thanks

 

[donkey]

I think were getting the wrong end of the forum. What ive got now is the LTP BYXX in row B and what im want to do now is everytime it appears I need it copied to the adjcent cell in row A.

 

[Domski]

Does this not do it then?

Sub move_stuff() 

Dim myRange As Range 

For Each myRange In Range([B1], [B65536].End(xlUp)) 

If InStr(1, myRange.Value, "LTP BY") = 1 Then 

 myRange.Offset(0, -1) = myRange.Value 
  

End If 
  
Next myRange 

End Sub

Dom