Blir inte klok på vad du egentligen frågar efter.
Men här är ett skript som gör det jag tror att du frågare efter i rubriken, dvs lägga ihop data från 15 flikar till den första fliken.


Sub lägg_samman_blad()

Dim shMålblad As Worksheet

Dim wbKällBok As Workbook
Dim shKällblad As Worksheet

Dim rFound As Range

Dim iLastRow As Integer
Dim ilastRowTarget As Integer
Dim i As Integer




Set wbKällBok = ActiveWorkbook
Set shMålblad = wbKällBok.Sheets(1)

ilastRowTarget = shMålblad.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row


For i = 2 To wbKällBok.Sheets.Count
Set shKällblad = wbKällBok.Sheets(i)
Set rFound = shKällblad.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not rFound Is Nothing Then
iLastRow = rFound.Row
shMålblad.Range("a1").Offset(ilastRowTarget, 0).Resize(iLastRow).EntireRow.Value = _
shKällblad.Range("A1").Resize(iLastRow).EntireRow.Value
ilastRowTarget = ilastRowTarget + iLastRow

End If
Next i


shMålblad.Activate
End Sub

(onödigt "plottrig" kod eftersom det är klippt från ett större skript som sammanfogade data från olika filer)data från olika filer)