IF和AND语句VBA宏未正常运行

Question

在我的代码中，我有以下IF和AND语句，它无法正常工作。

Private Sub CommandButton1_Click()
    Unload Me
Dim iRow As Range
Dim i As Long
Dim ws As Worksheet
Set ws = Worksheets("RewinderData")
Set iRow = Range("x16:x100")


For Each cell In iRow
    If cell.Value <> "" And cell.Offset(0, 1).Value = "" Then
        cell.Offset(0, 1).Value = Me.textbox_quantity.Value
    End If
Next

在我通过“Roll Quantity”命令按钮

输入数据之前，这就是我的表单的样子

这就是我输入一个数量后的样子，在这种情况下是20.即使Y单元格不满足If和And语句（空白），20也计算到另一个单元格。我故意在Y单元格中添加“---”，以便它显示为虚假陈述，但它不起作用。 HELP ??