VBA macro to copy & insert new row

Hello NotExcellentUser 

Sub NewRows()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim rng1 As Range, rng2 As Range
    
    ' Define your sheets
    Set ws1 = ThisWorkbook.Sheets("Working Papers")
    Set ws2 = ThisWorkbook.Sheets("Backup")
    
    ' Find the last row with data in the sheets
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' Define the ranges to copy
    Set rng1 = ws1.Rows(lastRow1 - 23 & ":" & lastRow1)
    Set rng2 = ws2.Rows(lastRow2 - 24 & ":" & lastRow2)
    
    ' Insert the copied rows below the last row
    rng1.Copy
    ws1.Rows(lastRow1 + 1).Insert Shift:=xlDown
    
    rng2.Copy
    ws2.Rows(lastRow2 + 1).Insert Shift:=xlDown
    
    ' Clear any cut/copied selection to avoid issues
    Application.CutCopyMode = False
End Sub

This macro was generated by an AI based on your query; however, it has not been tested.

Explanation:

1. Sheets: The code assumes that your "Working Papers" and "Backup" sheets are already set up. Adjust the names if your sheets have different names.
2. Last Row Calculation: The code calculates the last row with data in both sheets.
3. Ranges to Copy: The ranges rng1 and rng2 are defined based on the last row of data and are then copied.
4. Insertion: The code inserts the copied rows directly beneath the last row in both sheets.
5. Repetition: Each time you run the macro, it will find the new last row and repeat the process.

How to Set Up the Button:

1. Go to the Developer tab in Excel.
2. Click on Insert and select a Button.
3. Draw the button on your "Working Papers" sheet.
4. Assign the NewRows macro to the button.

Repetition:
The macro automatically adjusts the copied rows to the most recent set, allowing infinite repetition.