Hi, michaelcouch87,
if the data is going through all columns you might like to try something like
Sub As_Of_Analysis_Sorting()
Dim r As Long
With Sheets("Press Shop")
For r = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If .Range("J" & r).Value = "Complete" Then
.Rows(r).Copy Destination:=Sheets("Archived Changes").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Sheets("Archived Changes").Cells(Rows.Count, "A").End(xlUp).End(xlToRight).Offset(0, 1) = Date
.Rows(r).Delete xlShiftUp
End If
Next r
End With
End Sub
If you want Date and Time inserted you might use Now instead of Date.
you might have a look at this thread to find hints on online material as well as books.
Ciao,
Holger
Bookmarks