title: Passing InputBox entry generates Run-time error '424': Object required
body: <p>An input box comes up to enter an item name, example "Test Item". Then another input box comes up to enter a cost, example "13.2". The code is designed to find the first empty cell in column B and enter the Item and then offset one column to the right and enter the Cost. </p>
  
  <p>I am getting Run-time error '424': Object required on</p>
  
  <p>ActiveCell.Offset(1, 0).Select.FormulaR1C1 = Item</p>
  
  <pre><code>  Sub AddSWItem()
        Dim Item As String
        Dim Cost As String
  
        Item = InputBox("Item")
        Cost = InputBox("Cost")
  
        Range("B11").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = Item
        ActiveCell.Offset(0, 2).Select
        ActiveCell.FormulaR1C1 = Cost
    End Sub
  </code></pre>