Insert EntireRow (above of) if cell/s below HasFormula

[ykobure]

Hello Excel gurus!

As the title suggests, it seems pretty simple. But I did some trial and error and I can't seem to get the right codes in place to achieve that. Basically what I want is:

• Sheet1.Range("A3:E3") have Sum formula
• On onclick button event, a Userform1 will launch asking for inputs for Headers 1 to 5
• The code will check for empty row, if it spots one, it will send the data to specified range in the code
• If the program spots a formula in a range of cells (by checking the ActiveCell), it will insert an entire row above, and sends there the data from Userform1
• The cells (or range) with formula will move 1 row below and calculates values per column
• And so on

Here's the code:

Please Login or Register  to view this content.

I am attaching the file I am working on for better understanding of the requirement.

If you can come up with more simple code structure, I would be happy to learn from you.

Testing Insert Rows Macro.xlsm

Hope you guys can help me with this.

Thanks!!

[ykobure]

Maybe I should have waited a bit more before posting. I managed to solve my problem.

Sharing with you my solution:

• No significant changes in the VB code, except from removing unnecessary comments
• The fix is on the =Sum( ) formula

Instead of using the default formula:

Please Login or Register  to view this content.

I used:

Please Login or Register  to view this content.

Hope this can be of help to others!