Macro for Excel Data Consolidation

[bb19august]

Can someone help me with creating excel macro for the following.

Data will be entered in the "Main" Worksheet Table. Shown entries for a project with two units - Unit 1 and 2. this could be multiple units.[TABLE="width: 500"]
<tbody>[TR]
[TD]Project Name[/TD]
[TD]"Enter Project Name Here"[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Test Date[/TD]
[TD]"Enter Test Date here"[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Report Name[/TD]
[TD]"Enter Test Report Name here"[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Unit Name[/TD]
[TD]Unit P/N[/TD]
[TD]Unit Criticality[/TD]
[TD]SW Version[/TD]
[/TR]
[TR]
[TD]"Enter Unit1 Name Here"[/TD]
[TD]"Enter Unit1 P/N Here"[/TD]
[TD]"Enter Unit1 Criticality Here"[/TD]
[TD]"Enter Unit1 SW Version here"[/TD]
[/TR]
[TR]
[TD]"Enter Unit2 Name Here"[/TD]
[TD]"Enter Unit2
P/N Here"[/TD]
[TD]"Enter Unit2 Criticality Here"[/TD]
[TD]"Enter Unit2 SW Version here"[/TD]
[/TR]
</tbody>[/TABLE]

A click option (Button or a cell with "Click here") in the Main worksheet will populate the Project (say P1) data in a different worksheet in the same file (say "Data" worksheet) in the below fashion

[TABLE="width: 500"]
<tbody>[TR]
[TD]Project Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]P1[/TD]
[/TR]
[TR]
[TD]Test Date[/TD]
[TD][/TD]
[TD][/TD]
[TD]10/10/2019[/TD]
[/TR]
[TR]
[TD]Report Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]111-11[/TD]
[/TR]
[TR]
[TD]Unit Name[/TD]
[TD]Unit P/N[/TD]
[TD]Unit Criticality[/TD]
[TD]SW Version[/TD]
[/TR]
[TR]
[TD]AA100[/TD]
[TD]111[/TD]
[TD]A[/TD]
[TD]1.0[/TD]
[/TR]
[TR]
[TD]BB100[/TD]
[TD]222[/TD]
[TD]B[/TD]
[TD]1.2

[/TD]
[/TR]
</tbody>[/TABLE]

When a different project (say P2) details are entered and submitted in the Main worksheet, it will insert/add rows to include the data as shown below. Here shown for three units (AA100, BB101, C100). So it could be same unit name(AA100) or a new unit name (BB101, C100). Same unit names to insert rows below the same names and data populated. New unit names adds data below the last entered column as shown below.

[TABLE="width: 500"]
<tbody>[TR]
[TD]Project Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]P1[/TD]
[TD]P2[/TD]
[/TR]
[TR]
[TD]Test Date[/TD]
[TD][/TD]
[TD][/TD]
[TD]10/10/2019[/TD]
[TD]10/22/2019[/TD]
[/TR]
[TR]
[TD]Report Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]111-11[/TD]
[TD]111-12[/TD]
[/TR]
[TR]
[TD]Unit Name[/TD]
[TD]Unit P/N[/TD]
[TD]Unit Criticality[/TD]
[TD]SW Version[/TD]
[TD]SW Version[/TD]
[/TR]
[TR]
[TD]AA100[/TD]
[TD]111[/TD]
[TD]A[/TD]
[TD]1.0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]AA100[/TD]
[TD]112[/TD]
[TD]A[/TD]
[TD]1.1[/TD]
[TD]1.1[/TD]
[/TR]
[TR]
[TD]BB100[/TD]
[TD]222[/TD]
[TD]B[/TD]
[TD]2.0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]BB101[/TD]
[TD]223[/TD]
[TD]B[/TD]
[TD][/TD]
[TD]2.1[/TD]
[/TR]
[TR]
[TD]C100[/TD]
[TD]100[/TD]
[TD]A[/TD]
[TD][/TD]
[TD]1.0[/TD]
[/TR]
</tbody>[/TABLE]

It could be helpful if someone could help out. Not sure, If the above description seems confusion. i can try to answer better if there are any clarifications.

Thank you.
BB

 

[bb19august]

I added a command button (in the Main worksheet) and include the following script. This will copy the contents from one sheet to another based on unit names. However need help with looking up this unit list from a table with unit names predefined.
Also help with inserting rows in between when same units are entered in the main sheet, rather than copying to the last blank row.

Private Sub CommandButton1_Click()
a = Worksheets("Main").Cells(Rows.Count, 1).End(xlUp).Row
For i = 5 To a
Worksheets("Main").Cells(i, 1).Value = "AA100" Or Worksheets("Main).Cells(i, 1).Value = "BB100" Or Worksheets("Main).Cells(i, 1).Value = "BB101" Or Worksheets("Main).Cells(i, 1).Value = "C100" Then
Worksheets("Main").Rows(i).Copy
Worksheets("Data").Activate
b = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Data").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Main").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Main").Cells(1, 1).Select


End Sub