Problema con Input y su variable

Quisiera que ingrese en dígitos las filas que va a procesar :

Es decir: que ingrese por input:

Sub main()
Dim sUserInput As String
sUserInput = InputBox("Enter Number:", "Collect User Input")

If Not (Len(sUserInput) > 0 And IsNumeric(sUserInput)) Then
MsgBox "Input not valid, code aborted.", vbCritical
Exit Sub
End If

... Importa varios datos desde csv y no tengo problema con eso"... Solo quiero que el numero que ingrese sea las filas que va procesar así tenga mucho más datos...

Copiar:

Sheets("%CeldsTemp%").Select
 'para la ruta
 Worksheets("%CeldsTemp%").Range("A2:A & sUserInput").Copy Destination:=Worksheets("Documentation").Range("a11")
 Worksheets("%CeldsTemp%").Range("b2:b20010").Copy Destination:=Worksheets("Documentation").Range("b11")
 Worksheets("%CeldsTemp%").Range("c2:c20010").Copy Destination:=Worksheets("Documentation").Range("c11")
 Worksheets("%CeldsTemp%").Range("d2:d20010").Copy Destination:=Worksheets("Documentation").Range("d11")
 Worksheets("%CeldsTemp%").Range("e2:e20010").Copy Destination:=Worksheets("Documentation").Range("e11")
 Worksheets("%CeldsTemp%").Range("f2:f20010").Copy Destination:=Worksheets("Documentation").Range("f11")

Quiero  que esa variable sea global y se use una vez y reutilice para todo, pero no se si esta bien el
Worksheets("%CeldsTemp%").Range("b2:b20010").Copy

Debe ser un poco dinámica y usar la variable que siempre cambia

Worksheets("%CeldsTemp%").Range("A2:A & sUserInput").Copy