Insert 5 Row if a Certain Value in Column A Q
Bingo! Thanks all, worked a treat
Any guidance on the Sum Totals in E&F?
Sub InsertBlankLines()
Sheets("YTD").Select
MyValue = 10000
x = Application.Match(MyValue, Range("A:A"), 0)
Rows(x).Resize(5).Insert
End Sub
|