Copy & Insert Multiple rows on a different worksheet (with defined formulas & conditional formatting) based on a cell value

[Donna216]

I'm very new to VBA so would appreciate some assistance with the following:
Cell located on 'Summary' sheet B2 - displays the value (e.g. 350) which is the number of rows I need inserted on to 2 different Worksheets 'Testing Records' & 'Raw Data'. But ......'Testing Records' worksheet contains conditional formatting & 'Raw Data' contains formulas which need to be included in the new rows. How can I do this? Should I copy the 1st row on each worksheet & then insert them the required number of times as based on the cell on 'Summary' sheet??? Any assistance would be greatly appreciated....

 

[onlyadrafter]

Hello,

What we do is to have the top row on the destination sheets hidden but with all the formula, conditional formatting etc in there. Then use this row to copy.

Sub ADD_NUMBER_OF_ROWS()
    MY_NEW_ROWS = Sheets("Summary").Range("B2").Value
    With Sheets("Testing Records")
        .Rows("1:1").Copy
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(MY_NEW_ROWS).PasteSpecial (xlPasteAll)
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(MY_NEW_ROWS).EntireRow.Hidden = False
    End With
    With Sheets("Raw Data")
        .Rows("1:1").Copy
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(MY_NEW_ROWS).PasteSpecial (xlPasteAll)
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(MY_NEW_ROWS).EntireRow.Hidden = False
    End With
End Sub

This code can be made simpler if you only have the three tabs in the workbook. Is this at all close to your requirement?