Перенос / перемещение добавленных данных вниз (вместо добавления)

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