Vba 将单元格插入条件指定的工作表和行

我正在拼命寻找有关VBA代码的帮助。我的问题非常详细，所以我决定在代码中将其作为注释。如果这样的行为使我的问题变得模糊，请告诉我。 简言之，我的代码CPOIE一行（来自“FSR”工作簿），该行填写标准并将其粘贴到特定工作表和特定行中（由“FSR”工作表中的“P”和“Q”列的值给出）。我更需要的是在代码粘贴复制的单元格之前，将单元格插入（并向下移动现有单元格）到代码粘贴复制单元格的相同位置。我需要将单元格插入A:J列和工作表（“FSR”）中“G”列中的值给定的行中。我需要将这段新代码放入FOR循环，因为插入、复制和粘贴都需要循环。 现在在评论中用问题编码：

Sub FromSOF()
Dim Worksheet As Worksheets
startrow = Worksheets("GUTS").Cells(10, 1)
endrow = Worksheets("GUTS").Cells(11, 1)

For x = startrow To endrow
    If Cells(x, "O").Value = "P" Then
        Worksheets(Cells(x, "P").Value).Select 'And here is the porblem. This one and three consecutive lines are to insert cells and shift the existing cells down. The cells need to be inserted into the worksheet given by the value in column "P" in Worksheet("FSR") and into the row given by the column "Q" in Worksheet("FSR")
        Range("A" & Worksheet("FSR").Cells(x, "P").Value, "J" & Worksheet("FSR").Cells(x, "P").Value).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Worksheets("FSR").Select
        Range("E" & x, "H" & x).Copy
        Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "C").PasteSpecial xlPasteAll
    End If
    Next
End Sub

提前谢谢大家！ 我希望由于你的礼貌，我与代码的斗争将结束 致以最良好的问候

---

Artur Rutkowski

下面的代码将创建一个数据库并将数据复制到其中：

'Create line
Worksheets(Worksheets("FSR").Cells(x,"P").Value).Rows(Worksheets("FSR").Cells(x,"Q").Value).EntireRow.Insert
'Copy data (without clipboard)
Range("E" & x, "H" & x).Copy Worksheets(Worksheets("FSR").Cells(x,"P").Value).Cells(Worksheets("FSR").Cells(x,"Q").Value,1)