Sub W3W()
'
' W3W Ìàêðîñ
'
'
Range("A94").Select
Selection.Copy
Sheets("Temp price").Select
Cells.Find(What:="CH-S07FTXW", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
Range("A95").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Cells.Find(What:="CH-S09FTXW", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
ActiveWindow.SmallScroll Down:=12
Range("A103").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Cells.Find(What:="CH-S12FTXP-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("67:67").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("104:104").Select
Selection.Insert Shift:=xlDown
Range("A105").Select
Selection.Copy
Sheets("Temp price").Select
Range("A82").Select
Cells.Find(What:="CH-S18FTXP-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("99:99").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("106:106").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Range("A107").Select
Selection.Copy
Sheets("Temp price").Select
Range("A105").Select
Cells.Find(What:="CH-S24FTXP-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("121:121").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("108:108").Select
Selection.Insert Shift:=xlDown
Range("A110").Select
Selection.Copy
Sheets("Temp price").Select
Range("A125").Select
Cells.Find(What:="CH-S07FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("111:111").Select
Selection.Insert Shift:=xlDown
Range("A112").Select
Selection.Copy
Sheets("Temp price").Select
Range("A28").Select
Cells.Find(What:="CH-S09FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("24:24").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("113:113").Select
Selection.Insert Shift:=xlDown
Range("A114").Select
Selection.Copy
Sheets("Temp price").Select
Range("A27").Select
Cells.Find(What:="CH-S12FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("58:58").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("115:115").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Range("A116").Select
Selection.Copy
Sheets("Temp price").Select
Selection.Find(What:="CH-S18FTXF-NG", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range("R62").Select
Cells.Find(What:="CH-S18FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
Range("A117").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Range("A62").Select
Cells.Find(What:="CH-S24FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
ActiveWindow.SmallScroll Down:=9
Range("A119").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Cells.Find(What:="CH-S09FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
Range("A120").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Range("S62").Select
Cells.Find(What:="CH-S12FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
Range("A121").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Range("T63").Select
Cells.Find(What:="CH-S18FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("A64").Select
Sheets("PRICE FULL").Select
Range("A122").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Cells.Find(What:="CH-S24FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("PRICE FULL").Select
Range("A124").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Temp price").Select
Range("R66").Select
Cells.Find(What:="CH-S07FTXE", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("125:125").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Range("A126").Select
Selection.Copy
Sheets("Temp price").Select
Range("A20").Select
Cells.Find(What:="CH-S09FTXE-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("23:23").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("127:127").Select
Selection.Insert Shift:=xlDown
Range("A128").Select
Selection.Copy
Sheets("Temp price").Select
Range("A20").Select
Cells.Find(What:="CH-S12FTXE-NG", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("57:57").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("PRICE FULL").Select
Rows("129:129").Select
Selection.Insert Shift:=xlDown
End Sub
|