Vba 将输入框值插入到右侧行的下一个空单元格中

如果数据已经存在，我试图将来自用户表单文本框的数据添加到右侧的下一个空单元格中。意思是如果“E1”有日期，则添加到“F1”，以此类推，但仅为范围“E1:S1”

以下是报告的屏幕截图：

以下是我到目前为止得到的信息（但仅限于E1）：

End（xlToRight）只指向已填充单元格的末尾，而不是下一个打开的单元格。在找到最后一个已填充单元格后，您需要再移动一列。请使用cells（），我更喜欢盯着最远的列返回

Private Sub CommandButton1_Click()

    If Range("E1").Value = "" Then Range("E1").Value = UserForm2.TextBox1.Value Else
    Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = UserForm2.TextBox1.Value
    If Range("E2").Value = "" Then Range("E2").Value = UserForm2.TextBox2.Value Else
    Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Value = UserForm2.TextBox2.Value
End Sub

---

@ValentinIvan请点击答案旁边的复选标记，将其标记为正确。这是只有你才能做的事情。

Private Sub CommandButton1_Click()

    If Range("E1").Value = "" Then Range("E1").Value = UserForm2.TextBox1.Value Else
    Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = UserForm2.TextBox1.Value
    If Range("E2").Value = "" Then Range("E2").Value = UserForm2.TextBox2.Value Else
    Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Value = UserForm2.TextBox2.Value
End Sub