Insert Blank Row Below Highlighted Cell in Bulk VBA

[datamoto]

I have been pulling my hair out as my data requirements are ever expanding, am currently using Marco to insert Row ABOVE coloured cells in bulk (Macro Below) which works perfectly

Sub INSERTABOVE()
    LastRow = Range("C" & Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = LastRow To 1 Step -1
        If Range("C" & i).Interior.Color = 65535 Then
            Rows(i).Select
            Selection.Insert Shift:=xlDown
            With Rows(i).Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next i
    
End Sub

I want to insert a Blank Row below Coloured cell, basically the opposite of above, I run them as 2 separate processes, Can someone help me please!

 

[RoryA]

Welcome to the forum.

Try something like:

Sub INSERTBELOW()
    LastRow = Range("C" & Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = LastRow To 1 Step -1
        If Range("C" & i).Interior.Color = 65535 Then
            Rows(i + 1).Insert Shift:=xlDown
            With Rows(i + 1).Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next i
    
End Sub

 

[datamoto]

Welcome to the forum.

Try something like:

Sub INSERTBELOW()
    LastRow = Range("C" & Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = LastRow To 1 Step -1
        If Range("C" & i).Interior.Color = 65535 Then
            Rows(i + 1).Insert Shift:=xlDown
            With Rows(i + 1).Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next i
   
End Sub

Will give it a go, I have 7.4 million rows to process

 

[RoryA]

In a worksheet? That's impressive...

 

[datamoto]

In a worksheet? That's impressive...

Works a treat, very much appreciated!!!

Overall rows of data across many sheets, I'm not that insane to process all of it in one go lol!