Bagaimana cara menghapus dan mempertahankan nilai tertentu dalam sel berdasarkan pada nilai sel tertentu?

Bagaimana cara membuat kode vb untuk menghapus konten kolom B ketika saya memasukkan nilai tertentu di kolom A? Contoh: Jika sel A1 = apel, sel B1 harus menghapus nilai apa pun yang dimilikinya. Tetapi jika sel A1 = anggur, sel B1 harus mempertahankan nilai apa pun yang dimilikinya.

Variasi yang sedikit dari pertanyaan ini ada di internet.

Contoh ini diambil dari tautan di bawah ini dengan sedikit perubahan

Contoh

Sub tes ()
Redup LastRow As Long
LastRow = range ("A65536"). End (xlUp) .Row
For i = 1 To LastRow
If range ("A" & i) = "apple" Lalu
    Dengan rentang ("B" & i)
        .Isi yang jelas
        .FormatConditions.Delete
    Berakhir dengan
Berakhir jika
Selanjutnya saya
End Sub