New Group of Rows to a Table

[default_name]

Hello,

I have a table inside my excel document.
The table is pretty large, and has bounds/data range of ($J$1:$BN$3073).

I am trying to record/write a macro that will
1. Find the end/bottom of this table
2. Copy the 12 rows that are at the bottom of the table
3. Paste/insert 12 new rows at the bottom (while expanding/increasing the table bounds/data range by 12) of the table

I hope that makes sense.
Thanks in advance for your help!

EDIT:
If it helps any, the name of the table is WChart_Data

 

[NoSparks]

By referring to a sheet range to tell us about the table it doesn't sound like you're using your table as a table.

A couple of this forums members have sites that give insight into dealing with tables.
https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables
https://www.jkp-ads.com/Articles/Excel2007TablesVBA.asp?AllComments=True

 

[sandy666]

2. Copy the 12 rows that are at the bottom of the table
3. Paste/insert 12 new rows at the bottom (while expanding/increasing the table bounds/data range by 12) of the table[/I]

it seems like you want duplicate 12 last rows, am I right?

 

[default_name]

it seems like you want duplicate 12 last rows, am I right?

Yes, I want to duplicate the last 12 rows as well as expand the table bounds when I do so.

 

[sandy666]

this is simply copy/paste and nothing to expand or I don't understand your logic

 

[sandy666]

you can try PowerQuery (Get&TRansform)

[SIZE=1]// WChart_Data
let
    Source1 = Excel.CurrentWorkbook(){[Name="WChart_Data"]}[Content],
    Source2 = Excel.CurrentWorkbook(){[Name="WChart_Data"]}[Content],
    Last12 = Table.LastN(Source2, 12),
    TC = Table.Combine({Source1, Last12})
in
    TC[/SIZE]

 

[NoSparks]

how about

Dim oLo As ListObject
Set oLo = ActiveSheet.ListObjects("WChart_Data")
With oLo
    .ListRows(.ListRows.Count - 11).Range.Resize(12).Copy .ListRows(.ListRows.Count).Range.Cells(1).Offset(1)
End With

 

[default_name]

All of your input helped give me ideas on how to proceed.
I was able to write a script that works the way I want it to work...however, the Selection.ListObject.ListRows.Add AlwaysInsert=True statement is in there 12 times, and takes a few extra seconds for Excel to step through.
Is there a quicker way to do this, instead of listing the command 12 times?

Thanks in advance!

Sub Add_New_Rows()
'
' Add_New_Rows Macro
'

'
    Sheets("Sheet1").Select
    
    Range("CD2:CJ13").Select
    Selection.Copy
    Range("C2").Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    Selection.Insert Shift:=xlDown
    
    Range("WChart_Data").Select
    Selection.End(xlDown).Select
    [COLOR=#ff0000]Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True[/COLOR]
    
    Range("CK2:FC13").Select
    Selection.Copy
    Range("WChart_Data").Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        
End Sub

 

[NoSparks]

Something wrong with post 7 ?

 

[default_name]

Something wrong with post 7 ?

It would create the new rows in the table (correctly adjusting the size of the table as well).
But it wasn't pasting the cells the way I wanted it. Your ListObject hint helped me find/put something together that works.

Now I am just trying to make it more intuitive (instead of listing the function 12 times, I am stuck trying to make it carry out the function 12 times with one command).