Excel 尝试在某个单元格旁边填充文本

我有一个代码，在单击单元格时搜索E列中的第一个空单元格：

If Target.Cells.Count = 1 Then
    If Not Intersect(Target, [B2]) Is Nothing Then _
        Range("E:E").Find(vbNullString, [E3], , , , xlNext).Select
End If

现在我想更改代码，它在其中找到第一个空单元格，并将文本放入同一行的单元格中。因此，如果我只是进入excell工作表，不点击，它会将文本放入B列的一个单元格中（例如“add value”）。当然，如果我点击这个单元格，我仍然会转到第一个空单元格

---

我不知道从哪里开始，所以任何帮助都将不胜感激

简短回答下面的代码将显示“

Range("E:E").Find(vbNullString, [E3], , , , xlNext).Offset(0,1) = "<--Empty"

 For i = 1 to Max
     if RangeOfInterest(i,1) = vbNullString then RangeOfInterest(i,1).Offset(0,1) = "<--Empty"
 Next i