Copy and transpose column into row in another sheet. Create new row when button is click

[gjnn0o]

Hi, please help me out:

I want to copy and transpose data from sheet 1 into Sheet 2. In Sheet2, Name, team, Manager name, the date when the data are copied (last update). (monthly Amount will be transpose
After the data is copy into the second sheet, delete the old data from C7:C15 in sheet 1
When new name is choose at C1, button is clicked, sheet 2 will create another row to record this data in the same way as above.

Thank you very much

 

[DanteAmor]

Hi and welcome to MrExcel.

I guess you just want to clear the range from B7 to B18.
Try this:

Sub CopyData()
  Sheets("Sheet1").Range("B1:B3, B7:B18").Copy
  Sheets("Sheet2").Range("A" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues, , , True
  Sheets("Sheet1").Range("B7:B18").ClearContents
End Sub

 

[gjnn0o]

Thank you very much

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.