Sub Macro2()
Dim c As Range, d As Range
Dim Fruit As String
For Each c In Range('e3:e7')
If Not c.Comment Is Nothing Then
c.Comment.Delete
End If
c.AddComment.Text Text:=c.Offset(0, 1).Text
c.Comment.Visible = False
Next c
For Each c In Range('K20:K23')
If Not c.Comment Is Nothing Then
c.Comment.Delete
End If
Fruit = c.Offset(0, -1)
For Each d In Range('A3:A7')
If UCase(d.Text) = UCase(Fruit) Then
c = d.Offset(0, 4)
c.AddComment.Text Text:=d.Offset(0, 5).Text
c.Comment.Visible = False
End If
Next d
Next c
End Sub