ActiveSheet.ShowAllData ActiveSheet.Range("$A$2:$BD$5000").AutoFilter Field:=3, Criteria1:= _
"Order Filled"
Rows("2:2").Select
r = Selection.Row
Cells(r + 1, 1).EntireRow.Insert
Rows("3:3").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Font.Bold = False
Dim nrows As Long
nrows = Cells(Rows.Count, "H").End(xlUp).Row
Range("I3").FormulaR1C1 = "Order Filled"
Range("J3").FormulaR1C1 = "Order FIlled"
Range("I3:J3").Copy Range("I3:J" & nrows)
Rows("3:3").EntireRow.Delete
ActiveSheet.ShowAllData