Hi everyone,

I have recently figured out how to conditionally delete rows if the first cell contains a certain value or phrase using this code:

With Intersect(ActiveSheet.UsedRange, Range("A:A"))
  .AutoFilter
  .AutoFilter Field:=1, Criteria1:="Due*"
  .Offset(1).EntireRow.Delete
  .AutoFilter
End With
However now I need to insert two cells at the left instead orf deleting the row. In other words if the row starts with "Aged Totals" I need to shift everything in that row two cells over to the right to get it to line up properly.

I've been trying to modify this code to do that but it isn't working. Can someone show me what the syntax would be?

I tried something like:
With Intersect(ActiveSheet.UsedRange, Range("A:A"))
  .AutoFilter
  .AutoFilter Field:=1, Criteria1:="Aged Totals*"
  .Offset(1).Cells.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  .AutoFilter
End With
But it is giving an error: "insert method of range class failed"

Thanks!!