Sub addData()
    Dim x As Range, sh1 As Worksheet, sh2 As Worksheet, r As Long
    Set sh1 = ThisWorkbook.Sheets("Данные")
    Set sh2 = ThisWorkbook.Sheets("База")
    With sh2
        Set x = .Columns(1).Find(sh1.Cells(3, 2), , , xlWhole)
        If x Is Nothing Then
            r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Else
            r = x.Row
        End If
        .Cells(r, 1) = sh1.Cells(3, 2)
        .Cells(r, 2) = sh1.Cells(5, 2)
        .Cells(r, 2).NumberFormat = "dd.mm.yyyy"
        .Cells(r, 3) = sh1.Cells(7, 2)
        .Cells(r, 4) = sh1.Cells(8, 2)
        .Cells(r, 5) = sh1.Cells(9, 2)
    End With
End Sub
Sub fromBase()
    Dim x As Range, sh1 As Worksheet, sh2 As Worksheet, r As Long
    Set sh1 = ThisWorkbook.Sheets("Данные")
    Set sh2 = ThisWorkbook.Sheets("База")
    With sh2
        Set x = .Columns(1).Find(sh1.Cells(3, 2), , , xlWhole)
        If Not x Is Nothing Then
            r = x.Row
            sh1.Cells(3, 2) = .Cells(r, 1)
            sh1.Cells(5, 2) = .Cells(r, 2)
            sh1.Cells(7, 2) = .Cells(r, 3)
            sh1.Cells(8, 2) = .Cells(r, 4)
            sh1.Cells(9, 2) = .Cells(r, 5)
        Else
            MsgBox "Нет данных"
            'Если нужно очистить ячейки
            sh1.Cells(3, 2).Resize(7) = ""
        End If
    End With
End Sub