Help with InputBox

[TsarMarkI]

Hello Excel Gurus!

Hoping this is an easy one that I just can't figure out. I have values in Row 1 (such as "DSN" in A1, "Name" in B1, etc). I'm trying to build a macro where the input box prompts the user to enter in data into the inputbox, and that data goes into the open row below. For example, the text box would ask "What is the DSN", "What is the Name", etc based on the values in Row 1, and input that data into the corresponding cell in Row 2. Once they are finished, I would like to find a way for the macro to reset to the next open cell in Column A (Example: data is already in A2, so it begins putting data in A3.

I hope this makes sense- any help would be appreciated here!

 

[LazyBug]

Hello! Try this:

Sub tmi()
Dim sh As Worksheet, lr&, c&, lc&, ib$
Set sh = ActiveSheet
    With sh
        lr = Cells(Rows.Count, 1).End(xlUp).Row
        lc = Cells(1, Columns.Count).End(xlToLeft).Column
   
        For c = 1 To lc
            ib = Application.InputBox("What is the " & Cells(1, c) & "?", , , , , , , 2)
            Cells(lr + 1, c).Value = ib
        Next c
    End With
End Sub