[gr8styl]

Αγαπητέ Λευτέρη,
σε περίπτωση που δεν σε καλύπτει η καλή πρόταση του Σπύρου, ο παρακάτω κώδικας αντιγράφει "με Αντιμετάθεση/Transpose" τα περιεχόμενα του φύλλου "ΦΟΡΜΑ " (προσοχή το όνομα έχει ένα κενό στο τέλος) από το κελί Α1 μέχρι το τελευταίο χρησιμοποιούμενο, στο φύλλο DATA στήλη Α τελευταία χρησιμοποιούμενη γραμμή του φύλλου.

Ελπίζω να σου φανεί χρήσιμο.

Καλή χρονιά
Θανάσης

Sub Copy_Paste_Transpose()
    Dim Src As Worksheet
    Dim Dst As Worksheet
    Set Src = Worksheets("ΦΟΡΜΑ ") 'avoid greek alphabet for names
    Set Dst = Worksheets("DATA")
    Src.Range("a1:" & Cells(Src.UsedRange.Rows.Count, Src.UsedRange.Columns.Count).Address).Copy
    Dst.Range(Cells(Dst.UsedRange.Rows.Count + 1, 1).Address).PasteSpecial xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
End Sub