Sub sheetICDL()
Dim i As Integer
Dim sht As Worksheet
Dim rng As Range
Set sht = Sheets(1)
For i = 2 To Sheets.Count
Set rng = sht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets(i).UsedRange.Copy rng
Next i
End Sub