Development of a macros that inserts a row into sheet 1 to insert in sheet 2

[jj123]

Hi,

I have a question revolving around an "insert a row" and "copy the formula" macros - I'm not that familiar with coding in excel but found the following script online - which works really well in the attached example:

Sub InsertRow()
Dim Rng, n As Long, k As Long
Application.ScreenUpdating = False
Rng = InputBox("Enter number of rows required.")
If Rng = "" Then Exit Sub
Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
'need To know how many formulas To copy down.
'Assumesfrom A over To last entry In row.
k = ActiveCell.Offset(-1, 0).Row
n = Cells(k, 256).End(xlToLeft).Column
Range(Cells(k, 1), Cells(k + Val(Rng), n)).FillDown
End Sub

All I need is a few tweaks - which I have no idea how to do....

I would like it not to copy the data in column B and I would like it to insert exactly the same amount of rows and the relevant formula in the same place in Sheet "B".

Any help would be much appreciated!

THANK YOU

[Turtleman10]

This should help you

Please Login or Register  to view this content.

[jj123]

Hi,

Thank you very much for the response. Unfortunately when I copy the script into Macros i get the error message in the picture attached. I assume it might be some kind of syntax issue.

Untitled.jpg

Thanks again

[Turtleman10]

Ok I'm not exactly sure what you are trying to do. Are you trying to copy the whole sheet except column B? or just a portion?

[jj123]

Hi - Sorry for the confusion. Let me try and be a little clearer - Sheet A and B should be identicle. The macros I currently have working just inserts a row and copies the formula's down in Sheet "A".

Ideally, what i'd like to create is a macros that does this + inserts the same amount of rows in exactly the same place and copies all the formula's in sheet "B"

If I could stop the Macros copying column B in sheet "A" that would be perfect but it isn't too much of a concern...

Does this make things a little clearer?

Thanks for the help!