Is this anywhere near to what you have in mind?
If you think it is, make sure you try it on a copy of your workbook first.
There is no "Undo" for a macro.
Sub Maybe()
Dim lr As Long, lc As Long
lr = Cells.Find("*", , , , xlByRows, xlPrevious).Row
lc = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Application.ScreenUpdating = False
With Columns(13)
.AutoFilter 1, "Complete"
With Range(Cells(2, 1), Cells(lr, lc)).SpecialCells(12)
.Copy Sheets("Complete").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Delete Shift:=xlUp
End With
.AutoFilter
End With
With Range(Cells(2, 11), Cells(2, 13))
.AutoFill Destination:=.Resize(lr - 1), Type:=xlFillSeries
End With
Application.ScreenUpdating = True
End Sub