Copy data and paste it to next sheet with conditions

[HaroonSid]

hi,
I am using below code to copy paste data one sheet to next sheet

[/Option Explicit
 
Sub CopyRow()
Call CopyFormulaAndPasteAsValue
    Dim lastrowSrc As Long
    Dim lastrowDest As Long
     
    lastrowSrc = Sheets("sheet1").Range("c" & Rows.Count).End(xlUp).Row
     
    lastrowDest = Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
     
     'Copy row
    Sheets("sheet1").Range("A7:i" & lastrowSrc).EntireRow.Copy Sheets("sheet2").Range("A" & lastrowDest)
     
End Sub

"sheet1" range A7:A have unique number ( like 1-100000000)
if from sheet1.range("A7:A"), any number found in Sheet2.range.("A:A")
then appers a msgbox with "number already added"
if not found then
copy paste data

thanx