Hi I am using the code bellow.

This code finds in another excel workbook the same text as defined cell and copy all the data in correct row.

And I would like to add following message box:

This code needs to recognise if the output row is blank or already filled with some text.
If there is some text, then before copy I need the warning box "The data already exists!" Do you want to overwrite? YES - continue, No - stop copy.

Could somebody help me?

Sub Copy()
Dim db As Workbook, LR As Long, act As Workbook, cell As Range
Set actv = ActiveWorkbook
Set db = Workbooks.Open("C:\.......\Database.xlsx")
actv.Activate
LR = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To LR
    iVal = actv.Sheets("Data").Cells(LR, 1).Value
    
Set cell = db.Sheets(1).Columns(2).Find(What:=iVal, After:=Cells(3, 2), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
If cell Is Nothing Then
GoTo handler
Else
actv.Activate
Sheets("Data").Activate
Range(Cells(LR, 2), Cells(LR, 33)).Copy
db.Activate
ActiveWorkbook.Worksheets(1).Columns(2).Find(cell.Value).Offset(0, 8).PasteSpecial xlPasteValues
db.Save
db.Close
actv.Activate
Sheets("Head_list").Activate
OutPut = MsgBox("Data was successfully transferred", vbInformation, "Notification")
End If
handler:
Next i

End Sub