I got Short snippet to Insert Row, is there a short snippet to drag UP range Row?

[AndyJr]

Hi,

i have 3 sheets that i need to Insert A new row using a short snippet. TBH I created more than 3 Macros
but i'm getting On and Off the error "No Responding" and also the macro its taking too long, Already follow the advice of Microsoft and forums expert to Eliminate any external new Add-in that is not from microsoft
Already try it to fix this on different ways and this is one of them.

This is what i need to achieve
sheet1
On Row 37
a-.I want to Insert new row (which have data) So, with this action the row with data Scroll down
b-.Drag Up Row C38 to new Row 37 (to drag the formula)
c-.Ignore Cell D38 and D37
d-.Drag Up Row E38:EI38 to E37:EI37

Sheet2
On Row 37
a-.I want to Insert new row (which have data) So, with this action the row with data Scroll down
b-.Drag Up Row C38:EI38 to Row C37:EI37 (to drag the formula)

Sheet3
On Row 37
a-.I want to Insert new row (which have data) So, with this action the row with data Scroll down
b-.Drag Up Row C38:EI38 to Row C37:EI37 (to drag the formula)


So, My question is: Do some expert know a Short Snippet to drag Up like 250 formulas Other than the Conventional VBA Record Macro dragging?

For example
Via Record Macro, This is the conventional Snippet to Insert New row and Drag it.

Please Login or Register  to view this content.

This is the New code that im trying now, but i need the Short Drag snippet
(who know, it may make a difference )

Please Login or Register  to view this content.

NOTE: On my codes I'm using the snippets to run faster.

Please Login or Register  to view this content.

Thank you so much

[Maudibe]

How about,

Please Login or Register  to view this content.

HTH,
Maud

[AndyJr]

Good Morning Maudibe,

The code is neat but unfortunately it doesn't work.

Let me tell you what i did:

I adapted the range and copy the code for each Sheet 1 to 3.
I run the 3 codes and it does the drag but no inserting is not inserting 3 rows.

So i added the Select Sheets name ("sheet1" "sheet2" etc,etc), but now it won't do nothing.
Perhaps, i'm still getting the "No response" message but for less time.

This is are the code

Please Login or Register  to view this content.

Thank you so much

[Maudibe]

Please change

Please Login or Register  to view this content.

to:

Please Login or Register  to view this content.

Repeat the code for each sheet

HTH,
Maud

[AndyJr]

Hi Maudibe,

Thanks for response about last code, unfortunately the 3 codes add the Rows to same Sheet1.
trying and trying I added a line and worked.

Please Login or Register  to view this content.

each code take between 1.36 to 1.40 seconds But this is due (i think) because (somewhere)the code's find a data that produce a "bottlenecks" and display the message "No Response",
I have to googled About the "No Response" and/ or "BottleNeck" Issue.



Thank you so much!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!