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
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!
VBA Code:
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!
Last edited by a moderator: