Как скопировать всю строку активной ячейки и вставить ее внизу с формулами и проверкой данных в общей книге

Question

Мне нужно было скопировать всю строку активной ячейки и автоматически вставить ее под строку активной ячейки, включая условное форматирование и проверку данных.Однако каждый раз, когда я пытаюсь поделиться книгой, строка вставляется перед активной строкой без условного форматирования и проверки данных.

Текущий vba

Sub AddRow ()
       With ActiveCell
              .EntireRow.Copy
              .EntireRow.Insert shift = xlDown
        End With
          Application.CutCopyMode = False
End Sub

Answer 1

Попробуйте это

Sub AddRow()
   With ActiveCell
          .EntireRow.Copy
          ActiveCell.Offset(1, 0).EntireRow.Insert (xlShiftDown)
    End With
      Application.CutCopyMode = False
End Sub