Excel 基于条件通过VBA添加行

我使用VBA代码向违约者发出信函。数据按产品进行维护。如果人员1必须支付产品1的费用，则打印表单2（从其他几张表单获取数据） 如果同一个人必须为产品2付费，它会打印第二封信。 我正在寻找一个解决方案，如果一个人被重复代码应该添加一行到现有的字母

Sub Complaintexporter()

Dim X As Integer
Dim rng As Range


X = 3
Do Until IsEmpty(Sheet1.Cells(X, 29))

If Sheet1.Cells(X, 29) = "Legal Issued to Exporter" And Date - Sheet1.Cells(X, 36) > 21 Then
Sheet9.Cells(1, 1) = Sheet1.Cells(X, 4)
Set rng = Sheet1.Cells(X, 4)
'
'Sheet1.Activate
'    Cells.Find(What:=Sheet9.Cells(1, 1), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
'        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
'        , SearchFormat:=False).Activate
       'Remarks
        Sheet1.Cells(X, 4).Offset(0, 25).Value = "Pending In FEA Court"
        'FEAD/FEOD
        Sheet1.Cells(X, 4).Offset(0, 24).Value = "FEAD"
        'Details Penalty
        Sheet1.Cells(X, 4).Offset(0, 26).Value = "Pending In FEA Court"
        'year
        Sheet1.Cells(X, 4).Offset(0, 28).Value = "2019"
        'Complaint against
        Sheet1.Cells(X, 4).Offset(0, 29).Value = "Exporter"
        'Complainant/ Officer
        Sheet1.Cells(X, 4).Offset(0, 36).Value = Sheet1.Cells(1, 4)
        'Complaint No
        Sheet1.Cells(X, 4).Offset(0, 27).Value = Sheet2.Cells(1, 2)
        'Date of complaint against exporter
        Sheet1.Cells(X, 4).Offset(0, 34).Value = Date

Sheet4.PrintOut
Sheet5.PrintOut
Sheet6.PrintOut

'Write E-Form in list
Sheet2.Cells(Sheet2.Cells(1, 1), 2) = Sheet9.Cells(1, 1)
'Write Date against E-Form
Sheet2.Cells(Sheet2.Cells(1, 1), 3) = Date
'Increasing Serial No.
Sheet2.Cells(1, 1) = Sheet2.Cells(1, 1) + 1
'Increasing Complaint No.
Sheet2.Cells(1, 2) = Sheet2.Cells(1, 2) + 1

End If
X = X + 1
Loop
MsgBox Sheet2.Cells(12, 9)
End Sub

---

你能告诉我们到目前为止你已经尝试了什么吗？我正在尝试添加代码，但无法做到这一点。我是新手。请指点一下，有没有人能解决这个问题？