Помогите, пожалуйста.
Я записал код, который использует данные из списка источников, копирует эти данные и вставляет их в новый лист, скопированный из мастер-листа.
Я хочукод, который затем делает то же самое, но для следующей строки данных, создавая новый лист и т. д., сохраняя при этом предыдущий,
список источников
скопированный листиз главной таблицы, куда должны вводиться данные
Sub Macro22 () '' Macro22 Macro '
'
Sheets("Procurement Plan Master").Select
Sheets("Procurement Plan Master").Copy After:=Sheets(5)
Sheets("Procurement Evaluation Tool").Select
Range("C9").Select
ActiveCell.FormulaR1C1 = "Intrusive Fire Damper Survey"
Sheets("Procurement Plan Master (2)").Select
Sheets("Procurement Plan Master (2)").Name = "Intrusive Fire Damper Survey"
Sheets("Procurement Evaluation Tool").Select
Range("A9").Select
Selection.Copy
Sheets("Procurement Evaluation Tool").Select
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("M5").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Procurement Evaluation Tool").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("J5").Select
ActiveSheet.Paste Link:=True
Selection.Font.Bold = False
Sheets("Procurement Evaluation Tool").Select
Range("H9").Select
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("Q8").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("O6").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("J9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("P6").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("L9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("O18").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("M9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("P18").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("N9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("Q6").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("O9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("Q18").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("P9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("P11").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("Q9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("O11").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("S9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("Q11").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("T9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("O23").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("U9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("P23").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
Range("V9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intrusive Fire Damper Survey").Select
Range("Q23").Select
ActiveSheet.Paste Link:=True
Sheets("Procurement Evaluation Tool").Select
End Sub