VBA to add a new row in reference to a specific row/cell

[mwilburn]

I have a worksheet that has my companies action items and client action items. I have macros that add new copied rows with conditional formatting and formulas. The macros I have work but they add a new row under a specified row (18 and 29) which obviously causes issues if I add 4 or 5 rows to the top section.

In short, what I need to do is, instead of adding a row below Row 29, I need it to add a row in 2 rows below wherever the button is located. Is that possible?

Here is what I have, and yes, it's very simple. I am new to macros and VBA and all of this. Thank you for your time.

Sub AddNewRowAgendaTop()
'
' AddNewRowAgendaTop Macro
'


'
Rows("18:18").Select
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub


Sub AddNewRowAgendaBottom()
'
' AddNewRowAgendaBottom Macro
'


'
Rows("29:29").Select
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub

 

[mwilburn]

That is correct!

.
I looked up a chart of ASCII characters .... can't say I recognize those characters.

What are they ?

Never mind, just found another chart of WingDings that relate to the ASCII characters.
One is a checkbox (checked) and the other is a checkbox (unchecked).

So you don't require your code to be worked into the macro ? Is that what you are saying ?

 

[Logit]

Great ! Glad you found an answer.

Cheers.

 

[mwilburn]

I think I am almost where I need to be but not 100% If I use this code...

"Sub insertrows() ActiveCell.EntireRow.Offset(1).Resize(2).Insert Shift:=xlDown
End Sub"

...it does what I want to in terms of adding the row. Was there a way to get this to paste in a copied row?

This is almost there. It does paste a new row to the same place in reference to the cell and not to a designed row (which is awesome) but how do I get it to copy and paste in a row with the formatting?