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

  Dim varUserInput As Variant
  varUserInput = InputBox("Enter Row Number where you want to add a row:", _
  "What Row?")
  If varUserInput = "" Then Exit Sub

  RowNum = varUserInput
  Rows(RowNum & ":" & RowNum).Insert Shift:=xlDown

0