MACRO to add data based on questions

[ghp2017]

Hello,
I am trying to create a Macro that will insert the answers to two questions. The trick is that I need the the first question to go into the next empty cell in Column B and the second answer to go in the cell right next to it in Column C.

I have the first part down but I can't figure out the second. So far I have this:

strName = InputBox("What PartID would you like to add?")
strName1 = InputBox("How many would you like to add?")
NextEmptyRow = Sheets("Template").Cells(Rows.Count, "B").End(xlUp).Offset(1).Row
Sheets("Template").Cells(NextEmptyRow, "B").Value = strName
Range("C").Select
ActiveCell.FormulaR1C1 = strName1

End Sub

I have also tried breaking these two down into 2 different Subs and then creating a MASTER.

 

[Joe4]

You almost had it!

[B]strName = InputBox("What PartID would you like to add?")
[B]strName1 = InputBox("How many would you like to add?")
[B]NextEmptyRow = Sheets("Template").Cells(Rows.Count, "B").End(xlUp).Offset(1).Row
[B]Sheets("Template").Cells(NextEmptyRow, "B").Value = strName
[/B][/B][/B][/B][B][B][B][B]Sheets("Template").Cells(NextEmptyRow, "C").Value = strName1[/B][/B][/B][/B]

 

[ghp2017]

AWESOME!!! Thank you so much!!

 

[Joe4]

You are welcome!