Como posso inserir linhas abaixo no VBA

Question

Estou tentando inserir linhas abaixo da entrada do usuário, mas meu código é mantido para adicioná-lo acima. Alguém pode me dizer o que está acontecendo ...

  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