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

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