Copying a value given in an input message box, onto a cell

solved this

  Dim nomenclature As String
   
    
    
     nomenclature = Application.InputBox _
             (Prompt:="Enter the name.", _
                    Title:="name name", Type:=2)
                    
                     
         Cells(20, 4).Value = InputBox("nomenclature")

Worked well