看起来你想在新的工作表上每2行重复一次代码。除非你为每次迭代都创建一个新的工作表，否则你不想在循环中添加工作表。现在你会得到大量的新工作表。
最重要的是不要在循环中硬编码你的值，而是在循环中引用你的循环计数器：
子循环示例（）

Dim x As Integer
Dim NumRows As Integer

NumRows = Sheets("Sheet1").Range("A2", Range("A2").End(xlDown)).Rows.Count

For x = 1 To NumRows Step 2

    'directly reference your code in this area
    'instead of using select or activecell, type
    'out the worksheet name you are referencing
    'you can use a with statement if using the same
    'sheet/range repeatedly
    
    'in your range withn the loop, write
    'range("A" & x) for "A1"
    'range("A" &x+1) for "A2", etc
    
    'at the end of this loop, the step 3 will skip
    ' to row 3 in the next iteration which will repeat
    'your process there. I am assuming that every
    '2 lines you want to repeat this code since
    ' you input information for the first and second rows.
    
    'could also use an offset on each of your cells
    'to achieve the same thing without the step
        
Next x

末端子组件
希望我正确地解释了你的问题，这是有帮助的!