Sub Макрос1()
'
' Макрос1 Макрос
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
'
Sheets("Инфо").Select
Range("C3").Select
Selection.Copy
Sheets("Рейсы").Select
If Cells(2, 1) = Empty Then
Lastrow = 1
Else
Range("A2:A100000").Select
Lastrow = Selection.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
Rows(Lastrow).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C4").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G3").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B11").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B53").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C53").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("D53").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G17").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C14").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C15").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C16").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C46").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C45").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G14").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G16").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G15").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C20").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B22").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B23").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B24").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G22").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G23").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G24").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C27").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B29").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B30").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("B31").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G29").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G30").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G31").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C34").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C35").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G34").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G35").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G36").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("D45").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("D46").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("F45").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("F46").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G45").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G46").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("b15").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("G37").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C36").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.Offset(-1, 1).Range("A1").Activate
Sheets("Инфо").Select
Range("C17").Select
Selection.Copy
Sheets("Рейсы").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
' ActiveSheet.DisplayPageBreaks = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub
|