I am trying to copy the data in Table11 (varies in number of rows) and insert it as values at the end of another table.
Depending on the value of Begin!G9 (either 001.001, 001.002) it will either get pasted in sheet '001.001' or '001.002'
'001.001' has 'Table 5'
'001.002' has 'Table 6'
This is what I have so far:
Sub Finalize()
'Copy data in Item table to the appropriate page
If Sheets("Begin").Range("G9") = "001.001" Then
'Insert New Row
Sheets("001.001").Select
ActiveSheet.ListObjects("Table5").ListRows.Add (1)
'Copy and Paste from Begin to first row
Worksheets("Begin").Range("G9:I9").Copy Worksheets("demo").Range("A2:C2")
ElseIf Sheets("Begin").Range("G9") = "001.002" Then
Sheets("001.002").Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Worksheets("Begin").ListObjects("Table11").DataBodyRange.Copy Worksheets("001.002").ListObjects("Table6").ListRow.Add AlwaysInsert:=True
End If
Sheets("Begin").Select
End Sub