[kapetang]

Καλησπέρα

Νίκο, αν αντικαταστήσεις το μπλοκ του κώδικα από τη γραμμή: 'Συγκέντρωση δεδομένων στο φύλλο WSW μέχρι και την: EnD With, με το παρακάτω μποκ, νομίζω ότι θα λυθεί το πρόβλημα.
Αν δε λυθεί ανέβασε ένα προβληματικό αρχείο για να το κοιτάξω καλύτερα.

'Συγκέντρωση δεδομένων στο φύλλο WSW
        rowCopy = 2
        For j = 1 To numPack
            colCopy = 0
            finalRow = .Cells(Rows.Count, startCol + (j - 1) * LenPack).End(xlUp).Row
            If finalRow > 2 Then
                For i = 1 To 3
                    colCopy = colCopy + 1
                    k = Choose(i, 0, 2, 4)
                    .Cells(3, startCol + (j - 1) * LenPack + k).Resize(finalRow).Copy
                    Cells(rowCopy, colCopy).PasteSpecial Paste:=xlPasteValues
                Next
                rowCopy = rowCopy + finalRow
            End If
        Next
    End With

Φιλικά/Γιώργος