Sub X()
    Dim rng As Range
    Dim varReturn As Variant
    
    On Error GoTo ExitHere
    
    Set rng = Application.InputBox( _
      Prompt:="Выберите данные.", _
      Title:="Выберите диапазон.", Type:= 8 , Left:= 250 , Top:= 10 )
    
    varReturn = InputBox("Введите число, на которое нужно умножить", _
      "Введите число")
    
    For Each rng In rng
        If IsNumeric(rng) Then rng = rng * varReturn
    Next rng

ExitHere:
End Sub

Sub X()
    Dim rng As Range
    Dim varReturn As Variant
    
    On Error GoTo ExitHere
    
    Set rng = Worksheets( 1 ).UsedRange
    
    varReturn = InputBox("Введите число, на которое нужно умножить", _
      "Введите число")
    
    For Each rng In rng.Columns(rng.Columns.Count -  1 ).Cells
        If IsNumeric(rng) Then rng = rng * varReturn
    Next rng

ExitHere:
End Sub