Insert a new row with the same cell settings

[Endiyo]

Hi
I have searched the whole web for this problem and i can't really find anything about it. I want to be able to insert a new row with the exact same settings from the row i am inserting from. The row i am inserting from has merged cells and when i insert a new row it will automatically add new columns and not merging the cells.

Please check the image:
(A) is what i want when i insert a new row and (B) is what's happening after inserting a new row. How can i solve this issue? Please help!

/Endiyo

 

[Kaper]

1) select the whole row with formatting
2) copy it to clipboard (Ctrl+C)
3) select the row where you want it to be pasted
4) right click and select Insert copied cells
5) press Delete to delete copied contents (this step is not needed if the initial row was empty as on the screenshot you attached)

You can do it also with only few columns, not a whole row.

BTW Cell merging is a nice tool to compose elegant final report, but for working data ranges try to avoid merging. It usually makes a lot of problems.

 

[MikeVol]

...Or

Option Explicit

Sub InsertRowWithFormatting()
    Dim rng         As Range
    Set rng = ActiveCell.EntireRow

    rng.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    rng.Copy
    rng.Offset(1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    Set rng = Nothing
End Sub

Good luck.

 

[Endiyo]

1) select the whole row with formatting
2) copy it to clipboard (Ctrl+C)
3) select the row where you want it to be pasted
4) right click and select Insert copied cells
5) press Delete to delete copied contents (this step is not needed if the initial row was empty as on the screenshot you attached)

You can do it also with only few columns, not a whole row.

BTW Cell merging is a nice tool to compose elegant final report, but for working data ranges try to avoid merging. It usually makes a lot of problems.

First of all thank you for your answer, but this is not what i am trying to achieve. I want it to always give me merged cells like in the picture with only inserting a new row. We are a couple of people who are going to use this excel file and a lot of us isn't that good with computers unfortunately.

 

[Kaper]

Then think of macro proposed by MikeVol.
You can assign it to a selected shortcut so even "less experienced" users can use it.

 

[Endiyo]

...Or

Option Explicit

Sub InsertRowWithFormatting()
    Dim rng         As Range
    Set rng = ActiveCell.EntireRow

    rng.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    rng.Copy
    rng.Offset(1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    Set rng = Nothing
End Sub

View attachment 122442View attachment 122443View attachment 122444
Good luck.

Thank you for your answer!
Can you please show me this step by step instead? I don't really understand where and how i am going to put that codes?

/Endiyo

 

[MikeVol]

Sorry, but I don't have free time to teach anyone here. There is plenty of information on the Internet about what and how, you just have to set a goal. You can start with this article, for example. Good luck.

 

[Endiyo]

Sorry, but I don't have free time to teach anyone here. There is plenty of information on the Internet about what and how, you just have to set a goal. You can start with this article, for example. Good luck.

No problem at all, i will google it. Thank you for your help and i wish you a good day/evening/night!

/Endiyo

 

[Kaper]

I think pre link given by @MikeVol shall be enough to start. I'd add only that you will find a place to add a shortcut to call a macro from keybord here (this is the screenshot from the mentioned above link to ablebits:

BTW. If you find the code working, it would be a good idea to mark Mike's answer as a solution. See the link in my signature below how to do it.