автоматически запускает «удалять дубликаты» на VBA

Question

Ниже упомянутый код хорошо работает с «Workbook_BeforeSave», но я понял, что если пользователь нажимает дважды сохранять код, вставьте значения дважды. Поэтому мне нужно запустить «удалить дубликаты» непосредственно перед закрытием Proposal_Admin.xlsm после последней вставки. Не могли бы вы любезно помочь мне в этом.

Thanks & С уважением.

Sub CopyToOtherCell() 

Dim LastRow As Long, i As Integer, erow As Long 
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 
For i = 2 To LastRow 
    If Cells(i, 12).Value = Date Then 
     Range(Cells(i, 1), Cells(i, 12)).Select 
     Selection.Copy 
     Workbooks.Open Filename:="C:\Users\Murat\Documents\Teklifler\Proposal_Admin.xlsm" 
     ActiveWorkbook.Sheets("AdminSheet").Activate 
     erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 
     ActiveSheet.Cells(erow, 1).Offset(1, 0).Select 
     ActiveSheet.Paste 
     ActiveWorkbook.Save 
     ActiveWorkbook.Close 
     Application.CutCopyMode = False 
    End If 
Next i 
End Sub 

Answer 1

Можете ли вы не просто посмотреть, сохранилась ли книга?

Если ThisWorkbook.Saved затем «Бла-бла ... конец, если