Input box cell addresses are hard coded. Is there a way to make them change when going to new row?

[Royzer]

Hi. I need my Input Box data to fill in on one row and then the next time they run fill in the next row, etc. My problem is that the starting ranges are locked in, so even though it goes to the first cell of the next row after enter, the input data after the first cell go right back to the original cell. Are there variables I can use in the place of ("B2"), ("C2"), etc? Thank you.

Sub TestMacro()
Dim i As Integer
    Range("a1").Select
    Range(Selection, Selection.End(xlDown)).Select
    i = Selection.Rows.Count
    Cells(i + 1, 1).Select
    ActiveCell.FormulaR1C1 = InputBox("Date")
    Range("B2").Select
    ActiveCell.FormulaR1C1 = InputBox("Project #")
    Range("C2").Select
    ActiveCell.FormulaR1C1 = InputBox("Fault")
    Range("D2").Select
    ActiveCell.FormulaR1C1 = InputBox("Problem")
    Range("E2").Select
    ActiveCell.FormulaR1C1 = InputBox("Solution")
    ActiveCell.Offset(1, 0).Select
    Range(ActiveCell.EntireRow.Address)(1, 1).Select

 

[Michael M]

Try

Sub TestMacro()
Dim i As Integer, lr As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Cells(lr, 1).Value = InputBox("Date")
    Cells(lr, 2).Value = InputBox("Project #")
    Cells(lr, 3).Value = InputBox("Fault")
    Cells(lr, 4).Value = InputBox("Problem")
    Cells(lr, 5).Value = InputBox("Solution")
End Sub

 

[Royzer]

Can't thank you enough, Michael. That's just what I need.