在Sum Macro中挣扎

Question

因此，我有一个宏，它接受我复制到工作表中的发票，复制保费金额并将其粘贴到单元格中的摘要选项卡上，该单元格与两个工作表上的相同社保号码相对应。下面是宏：

Sub Eyemed2()
Dim rw, LastRow, LastRRow As Long
Dim rng As Range, Found As Range, SheetEnd3 As Range
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Eyemed 2")
Set ws2 = Sheets("Raw")
LastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
Set rng = ws2.Range("A2:B" & LastRow)    
LastRRow = ws1.Cells(Rows.Count, "R").End(xlUp).Row
For rw = 14 To LastRRow     'Begin in row 14 of Eyemed 2
    If Not ws1.Range("R" & rw) Is Nothing Then    
is blank
        Set Found = rng.Find(What:=ws1.Range("A" & rw).Value, 
LookIn:=xlValues)
        If Not Found Is Nothing Then
            ws2.Range("N" & Found.Row) = ws1.Cells(rw, "J").Value

        Else
            Set SheetEnd3 = rng.Find(What:=ws1.Range("A" & rw).Value, 
      LookIn:=xlValues)
            LastRow = ws2.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row
            ws1.Range("A" & rw).Copy ws2.Range("B" & LastRow)
            ws2.Range("N" & SheetEnd3.Row) = ws1.Cells(rw, "J").Value

        End If
    End If
Next rw
End Sub

因此，它查看'Eyemed 2‘中的R列，如果它不为空，则将N列中的单元格复制到摘要选项卡的J列中。它通过在摘要选项卡的A:B列中搜索'Eyemed 2’的A列中的社会保险号，找到要粘贴到摘要选项卡中的适当行。

我的问题是，在“爱情2”中，一些社保号码不止一次地列出了两个不同的金额。因此，我需要编辑宏，将具有相同社保号码的所有金额相加，然后搜索并粘贴到摘要选项卡中的一个条目中，而不是现在只复制并粘贴一个金额。

非常感谢