Sub
Add()
ActiveWindow.ScrollRow = 1
Range(
"P13:Z13"
).
Select
Selection.Copy
Range(
"P14"
).
Select
Do
Cells.Find(What:=
":55:"
, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False
, SearchFormat:=
False
).Activate
Activecell.Offset(0,9).Paste
Loop
While
ActiveCell.Address = C125356
End
Sub