Нужна помощь для поиска строки и перезаписи данных в том же месте

Question

У меня есть этот код, который записывает данные в следующий пустой столбец, и он отлично работает, когда запись не существует.Однако я добавил код для поиска записи (MyVal) и, если найден, спросить, следует ли перезаписать.Когда он задает вопрос, если пользователь говорит «нет», он выходит из подпрограммы (это правильное поведение), но если запись существует, я хочу, чтобы он записал данные в то же место.Я почти уверен, что у меня "Else" не в том месте, и я не знаю, какой код написать, чтобы сказать ему записать данные в то же место, что и найденная запись.

Sub Copy_To_Borrower_DBase()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim myVal As String
Dim sourceRng As Range
Dim lCol As Long
MyNote = Sheets("Main").Range("F5").Value & _
         " already exists, do you want to overwrite?"
myVal = Sheets("Main").Range("F5").Value ' dropdown list

Set sourceRng = Worksheets("Borrower Database").Range("5:5").Find( _
       What:=myVal, LookAt:=xlWhole) 'locate column where to copy from

Set ws1 = ThisWorkbook.Sheets("Main")
Set ws2 = ThisWorkbook.Sheets("Borrower Database")

If Not sourceRng Is Nothing Then
    Answer = MsgBox(MyNote, vbCritical + vbYesNo, "Overwrite??")
    If Answer = vbNo Then
        Exit Sub
    Else
    End If
Else
With ws2
Application.EnableEvents = False
lCol = .Cells(5, .Columns.Count).End(xlToLeft).Offset(, 1).Column
    .Cells(5, lCol).Value = ws1.Range("F5").Value 'Borrower Name
    .Range(.Cells(6, lCol), .Cells(8, lCol)).Value = 
ws1.Range("G6:G8").Value 'Income, Credit Pmt and Car Pmt
    .Range(.Cells(9, lCol), .Cells(10, lCol)).Value = 
ws1.Range("G11:G12").Value 'Borrower Name
    .Cells(11, lCol).Value = ws1.Range("G15").Value 'Reserves
    .Cells(12, lCol).Value = ws1.Range("D15").Value 'Credit Score
    .Cells(13, lCol).Value = ws1.Range("D14").Value 'Rate
    .Cells(14, lCol).Value = ws1.Range("C14").Value 'Discount Point
Application.EnableEvents = True
End With
End If
End Sub