I have a data base in which I want to click on a button and input all of the data that is interesting to me. But i can't figure out the simplest way to make a loop that moves the range + 1 every time I run the macro. Any ideas? Bigger
I have already tried some functions provided in other questions.
Sub Terreno()
    Range("A79").Select
    ActiveCell.FormulaR1C1 = InputBox("City: ")
    Range("B79").Select
    ActiveCell.FormulaR1C1 = InputBox("Name: ")
    Range("C79").Select
    ActiveCell.FormulaR1C1 = InputBox("Area: ")
    Range("D79").Select
    ActiveCell.FormulaR1C1 = InputBox("Price: ")
    Range("F79").Select
    ActiveCell.FormulaR1C1 = InputBox("Currency: ")
    Range("I79").Select
    ActiveCell.FormulaR1C1 = InputBox("Status: ")
    Range("M79").Select
    ActiveCell.FormulaR1C1 = InputBox("Contact: ")
    Range("N79").Select
    ActiveCell.FormulaR1C1 = InputBox("Phone: ")
    Range("O79").Select
    ActiveCell.FormulaR1C1 = InputBox("E-mail: ")
End Sub
I expect when I run the macro it will change rows in every data input
 
    