Moving data from sheet1 to sheet2, increment rows

[pschwind]

Ok, let’s see if I can articulate this well.

I have two worksheets in excel. The first sheet allows a user to answer some questions and performs a single calculation. If the calculation is acceptable to the user, I want them to be able to click a button and send the data from two different cells (A2 and C18 to be exact) on worksheet1 over to the worksheet2.

I want worksheet2 to have two columns, one for the value from A2 and one for the value from C18.The person may perform the calculation on worksheet1 several times. Each time they do that calculation and click the button, I would like to save the A2 and C18 cell data in a new row on worksheet2. Worksheet2 could have many rows of data that were the from the calculations on worksheet1.

Does that make sense?

 

[onlyadrafter]

Hello,

do you mean this?

Sub sheet1_to_sheet2()
    With Sheets("Sheet1")
        .Range("A2").Copy Sheets("SHeet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("C18").Copy Sheets("SHeet2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
    End With
End Sub

or if you want the values only, is A2 and C18 are formula try

Sub sheet1_to_sheet2()
    With Sheets("Sheet1")
        .Range("A2").Copy
        Sheets("SHeet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlValues)
        .Range("C18").Copy
        Sheets("SHeet2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlValues)
    End With
End Sub

 

[pschwind]

The code you created in the second example works perfectly. Thank you very much for your help.