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