Here is the code to where it consolidates all the individual worksheets.


Sub consolidatesheets()
Application.ScreenUpdating = False

With Sheets("Consolidated")
Rows("2:" & Cells(2, 1).End(xlDown).Row).Delete

For Each sh In ThisWorkbook.Sheets

If LCase(Left(sh.Name, 1)) = "1" Then
dlr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
slr = sh.Cells(Rows.Count, 1).End(xlUp).Row
If slr 1 Then sh.Cells(2, 1).Resize(slr, 16).Copy .Cells(dlr, 1)
End If

Next sh

Columns("A:p").HorizontalAlignment = xlCenter
End With

Application.ScreenUpdating = True
End Sub

"Loop" wrote:

On 12 авг, 14:20, Confused wrote:
I have a macro that consolidates multiple sheets into one. I'd like to
include a code in the macro where it sorts the dates (starting in cell b2)
once the consolidation is done. The headings are in row 1, how do I write a
macro where the sort starts in cell b2?

Is it possible to see your code?

Thanks