Mass insert in large database

**Richard Buttrey** · 04-06-2012, 12:47 PM

Hi,

One way:

Sub InsertZips()
    Dim x As Long, llastrow As Long

    llastrow = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("K2:K" & llastrow) = "=IF(B2<>B1,""Insert"","""")"
    Range("K:K").Copy: Range("K1").PasteSpecial (xlPasteValues)
    Range("K2").EntireRow.Insert
    Range("I2") = 90058

    For x = llastrow + 1 To 4 Step -1
        If Range("K" & x) = "Insert" Then
            Range("K" & x & ":K" & x + 1).EntireRow.Insert
            Range("I" & x & ":I" & x + 1) = 90058
        End If
    Next x
    Range("I" & Rows.Count).End(xlUp).EntireRow.Delete


End Sub

**kisboros** · 04-06-2012, 01:29 PM

This is what I did: I opened up VBA editor; copied and pasted your code. Then I had to enable macros, and then I clicked on 'Run" and got an error message:
Compile error: Invalid outside procedure.
Would it make any difference that it is tab 7 in a workbook? I can see that 'Sheet 7' is highlighted on the sidebar.
Thank you.

**Richard Buttrey** · 04-06-2012, 03:09 PM

Hi,

The macro should be run with the sheet containing the data is the active sheet. It could be changed to refer to a specific sheet.

Is your real data EXACTLY the same layout as your example on which the macro is based?

**kisboros** · 04-06-2012, 04:10 PM

Hi Richard,
Yes it is. I cut and pasted from the original. Would this forum allow me to send the entire sheet to you to see?
Thanks,
Eva

**Richard Buttrey** · 04-06-2012, 06:53 PM

Hell Eva,

You don't need to send the entire workbook if it's very large. Just delete most of the rows but leave a good representative sample and upload.

Regards