Hi, I would like some help to condense this please, it works but…
1- I would like to see it done cleaner and better, I’ve tried to no avail
2- And because I have nine other worksheets to add to the code
Sub RollUp()
Application.ScreenUpdating = False
Sheets("Conrad").Activate
n = Cells(Rows.Count, "E").End(xlUp).Row
Sheets("Roll Up").Activate
k = Application.WorksheetFunction.Max(1, Cells(Rows.Count, "AG").End(xlUp).Row + 1)
Sheets("Conrad").Activate
For i = n To 1 Step -1
If Cells(i, "E").Value = "MOVED DATE" Then
Cells(i, "E").EntireRow.Copy Sheets("Roll Up").Cells(k, 1)
k = k + 1
End If
Next
Sheets("Conrad").Activate
n = Cells(Rows.Count, "E").End(xlUp).Row
Sheets("Roll Up").Activate
k = Application.WorksheetFunction.Max(1, Cells(Rows.Count, "AG").End(xlUp).Row + 1)
Sheets("Conrad").Activate
For i = n To 1 Step -1
If Cells(i, "E").Value = "Pending" Then
Cells(i, "E").EntireRow.Copy Sheets("Roll Up").Cells(k, 1)
k = k + 1
End If
Next
Range("B2").Select
ActiveCell.FormulaR1C1 = "1"
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("B2").AutoFill Destination:=Range("B2:B" & LastRow), Type:=xlFillSeries
Sheets("Roll Up").Activate
Application.ScreenUpdating = True
End Sub
Bookmarks