将单元格数据复制到新的表格行

Question

I'm very new to Excel VB scripting and i'm looking for information on how to copy specific cell data to a new sheet with a table and add a new line for each time you press the button to copy. Let me try to explain better I have 1 sheet named Values and one named Data

Excel Version 2013

Value Sheet Information in Cells A2, H17, H19, H21, H23, H25, H27, H29, H31, H33, H35 and H37

Data Sheet

Tablename: SurveyData Table Header names AgeRange , B1 , C1 , D1 , E1 , F1 , and so on all on the same row

H17 = B1

H19 = C1

And so on

When you click on the button it should copy all these values from these cells to a new table row in the Data Sheet

I don't know how possible this is to do within Excel but i'm hoping there will be some options on how to perform this within Excel.

Thank you for taking your time and hope this explanation of mine makes sense.

Edit: I did a huge error when expressing my request, The data in the entry sheet is spread out across multiple rows and cells. I want to take these individual cells to be pasted into a new sheet on a new row. so it will look something like this

When you click the button it copies all data from Sheet 1 to Sheet 2 each click creates a new row with data filled in on each cell that was copied from sheet 1 under their corresponding cell.

AgeRange  B  C  D  E  F  G
15-20     1  1  0  1  0  1
20-25     1  0  1  1  1  0

And so on. I got the copy down but getting each individual cell to be pasted into one row in a new column and when done go to a new line for new data is the issue.

I do not know if i make any sense here

Regards

Johan

Answer 1

Sub CopySheet1PasteSheet2 ()

count=Worksheets("Sheet1").Cells(Worksheets("Sheet2").Rows.Count, "A").End(xlUp).Row

Worksheets("Sheet2").Cells(count+1,1) =Worksheets("Sheet1").Cells(1,2) 'for A2

Worksheets("Sheet2").Cells(count+1,2) = Worksheets("Sheet1").Cells(2,5) 'for B5

End Sub

Answer 2

In order to add next row you need to count rows in Data Sheet:

Dim count as integer; count=Worksheets("Data").Cells(Worksheets("Data").Rows.Count, "A").End(xlUp).Row

To copy values from worksheets from A2 to V1 Worksheets("Data").Cells(count+1,1) = Worksheets("Values").Cells(1,2)

And then next cells accordingly