How do I make a copy of a shape and place it in the same spot

[dpaton05]

I have code that moves some command buttons further down a spreadsheet as the rows in it are copied below. This means the buttons are now below the second copy of the rows. The only problem is that I want a divider (textbox4) to remain between the 2 copies of the rows. This code moves the command buttons to the right spot and I also need textbox4 moved in the same proportion but I need to leave a copy of it where it currently is. Can someone help me with the vba code please?

Sub AddRows()
Dim Total As Range
    With ThisWorkbook.Worksheets("ACA_Quoting")
        '.Range("29:31").EntireRow.Insert
        '.Rows(29).Insert Shift:=xlShiftDown 'Inserts a row below the current table to create a buffer zone between the 2 tables.

        .Range("F29:H32").Copy .Range("F51")
        .Range("A8:I28").Copy .Range("A38") 'Pastes a copy of the table below current table between the bottom of the table and the totals
        '.Range("F30:H32").Offset(2, 0).Select 'This is the range of the totals that need to be moved down so the additional table can be pasted in
        '.Range("C7").Insert Shift:=xlDown
        
            .Shapes.Range(Array("cmdAddRatio")).Select
        .Shapes("cmdAddRatio").IncrementTop 505
            .Shapes.Range(Array("cmdGsign")).Select
        .Shapes("cmdGsign").IncrementTop 505
            .Shapes.Range(Array("cmdNoSign")).Select
        .Shapes("cmdNoSign").IncrementTop 505
            .Shapes.Range(Array("cmdSaveToPdf")).Select
        .Shapes("cmdSaveToPdf").IncrementTop 505
            .Shapes.Range(Array("cmdCustomSign")).Select
        .Shapes("cmdCustomSign").IncrementTop 505
            .Shapes.Range(Array("textbox4")).Select
        .Shapes("textbox4").IncrementTop 505
        
        
        '.Range("29:31").EntireRow.Insert
       
    End With
End Sub

 

[rlv01]

Glad you got it sorted out.

 

[dpaton05]

I just found this thread where I originally asked this question and got the code that I am having trouble with.

I started a new thread asking for help with a problem that I didn't realise was related to the code you gave me. Further on in that thread, it became apparent it was relating to this thread but I had already started the new thread. I was reading another thread I had with Michael M and he said I should ask the question in the original thread where I got the answer, so I went searching for this thread. I didn't want to double up on questions on this forum so here is the link to the extra thread I started. Could you help me with the problem I am having on this thread please?

VBA to paste onto a new page

I have some code to paste a range below the current range. I want it to find the bottom of the document and then create a new page after it to paste the range onto. There might be an image put in at the bottom of the document . At the moment, the code I have to insert the range is...

www.mrexcel.com

Thanks