VBAで下に行を挿入するにはどうすればよいですか

ユーザー入力の下に行を挿入しようとしていますが、私のコードは上に追加し続けています。

  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

次のようにに変更xlDownしxlUpます。

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:=xlUp*