<div>
Try this: (done with the macro recorder)<br />
<br />
&nbsp; &nbsp; Range(&quot;A1:C1&quot;).Select<br />
&nbsp; &nbsp; Selection.Copy<br />
&nbsp; &nbsp; Range(&quot;A5&quot;).Select<br />
&nbsp; &nbsp; Selection.Insert Shift:=xlDown<br />
&nbsp; &nbsp; Range(&quot;A1:C1&quot;).Delete<br />
<br />
This actually does not insert a whole row but move the cells down for the range with only.<br />
It should more or less do what you seek?
</div>


Try this: (done with the macro recorder)

    Range("A1:C1").Select
    Selection.Copy
    Range("A5").Select
    Selection.Insert Shift:=xlDown
    Range("A1:C1").Delete

This actually does not insert a whole row but move the cells down for the range with only.
It should more or less do what you seek?

<div>
<div class="content wysiwyg-content">
I am trying to write a VB script that I can assign to a button on a Excel workbook. What I need the script to do is copy a cell range (i.e., a10:l10) and paste it to another area in the same spreadsheet. I also need to clear the copied cells and cause the spreadsheet where I paste the data to automatically insert a new row. &nbsp;This is for an Excel spreadsheet using Microsoft VB.
</div>
</div>


I am trying to write a VB script that I can assign to a button on a Excel workbook. What I need the script to do is copy a cell range (i.e., a10:l10) and paste it to another area in the same spreadsheet. I also need to clear the copied cells and cause the spreadsheet where I paste the data to automatically insert a new row.  This is for an Excel spreadsheet using Microsoft VB.

How to write a VB script in Excel to copy from a cell range and paste to another while inserting a new row?

Programming includes both the specifics of the language you’re using, like Visual Basic, .NET, Java and others, but also the best practices in user experience and interfaces and the management of projects, version control and development. Other programming topics are related to web and cloud development and system and hardware programming.