Macro to Insert a blank row after 750 rows

[jemmers]

Hello All,

I'm looking for help with a macro which will insert a blank row in a spreadsheet after every 750 existing data. Once inserterted, the count should restart at 1, and continue to 750 again, where another blank row should be added.

Any assistance would be greatly appreciated.

Thank you,

Jennifer

[Fotis1991]

Hi

Sub InsertEveryN()
    Dim rng As Range
     
    Set rng = Range("A1")
    While rng.Value <> ""
        rng.Offset(750).EntireRow.Insert
        Set rng = rng.Offset(751)
    Wend
End Sub

[Hawkeye16]

Or if not every cell is populated you could try something like this

Sub InsertBlankRows()

    Dim i As Integer

    For i = 1 To Application.Max(ActiveSheet.UsedRange.Rows.Count / 750, 1)
        Range("A1").Offset(750 * i + i - 1, 0).EntireRow.Insert
    Next

End Sub

[jemmers]

Thank you everyone, I really appreciate it! Programming like this is not my strong suit.

[Fotis1991]

You are welcome(from both of us) and thanks for the feedback.

As that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED,as per Forum Rule #9. Thank you.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.