[font=Courier New][color=darkblue]Sub[/color] macro_recap()
[color=darkblue]Dim[/color] i%, c%, k&
[color=darkblue]With[/color] Worksheets(1)
.Range(Cells(2, 1), Cells(65536, 3)).Clear
[color=darkblue]With[/color] .Cells(1)
c = 1
k = 2
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]For[/color] i = 2 [color=darkblue]To[/color] ThisWorkbook.Worksheets.Count
[color=darkblue]With[/color] Worksheets(i).Cells(1).CurrentRegion.Offset(1, 0)
.Copy Worksheets(1).Cells(k, 1)
k = k + .Rows.Count - 1
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]Next[/color] i
[color=darkblue]End[/color] [color=darkblue]Sub[/color][/font]