Sub test3()
Dim Ws As Worksheet, Src As Range, Cbl As Range
Application.ScreenUpdating = False
With Worksheets("recap")
.Rows.Delete
Set Cbl = .Cells(1, 1)
End With
For Each Ws In Worksheets
If Ws.Name <> "recap" Then
Set Src = Ws.UsedRange
Src.Copy Destination:=Cbl
Set Cbl = Cbl.Offset(Src.Rows.Count)
End If: Next Ws
Application.CutCopyMode = False
End Sub