Add a table to the bottom of a table using a macro

[bukkibams]

Hi Everyone,

Please I urgently need your expert advice.

I recorded a macro to copy and paste a table. However, everytime i press the 'button', it does not paste the new table below the last table pasted but below the original table copied. Please help.


This is the macro generated but it does not start from below the last table;

Sub InsertRow()
'
' InsertRow Macro
'

'
Rows("40:75").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Rows("76:76").Select
Selection.Insert Shift:=xlDown
Range("A77").Select
Application.CutCopyMode = False
End Sub

[Pauleyb]

Try replacing
Range("A77").Select
with
range("A65536").End(xlUp).offset(2,0).Select

This assumes you do not go below row 65536. You could take it up to 1,048,576.