向下传输/移动添加的数据(而不是追加)

Question

我有以下宏，它在添加数据和新行方面对我来说很好：

Private Sub CommandButton1_Click()
Dim emptyRow As Long
'Make WOTracker active
Sheets("WOTracker").Activate
'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
'Transfer information
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 5).Value = TextBox2.Value
End Sub

我需要帮助的是修改代码，这样它就不会在现有行下面添加数据(到新行(，而是向下推送之前添加的数据。因此，第2行中的内容进入第3行，新数据插入第2行。

Answer 1

只需在Range("A2")处插入新行，然后将最后一行变量更改为2以表示row 2

Private Sub CommandButton1_Click()
With ThisWorkbook.Sheets("WOTracker") 
.Cells(2, 1).EntireRow.insert
.Cells(2, 1).Value = TextBox1.Value
.Cells(2, 5).Value = TextBox2.Value
End With
End Sub