[rmaria]

Απλά όταν δημιούργησα τον πίνακα δεν μου δούλευε η μεκροεντολή αυτή:

Sub transferData()
Dim NextRow As Integer
Set WS1 = Worksheets("ΔΑ-ΤΙΜΟΛΟΓΙΟ")
Set WS2 = Worksheets("ΣΥΓΚΕΝΤΡΩΤΙΚΟ")
NextRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1
WS2.Cells(NextRow, 1) = WS1.Cells(10, 8)
WS2.Cells(NextRow, 2) = WS1.Cells(10, 6)
WS2.Cells(NextRow, 3) = WS1.Cells(15, 3)
WS2.Cells(NextRow, 4) = WS1.Cells(41, 9)
WS2.Cells(NextRow, 5) = WS1.Cells(42, 9)
WS2.Cells(NextRow, 6) = WS1.Cells(43, 9)

End Sub

και για αυτό το λόγω δεν έφτιαξα τον πίνακα και απλά πρόσθεσα δύο στήλες.
Αρα δεν υπάρχει κάποια λύση μόνο αντιγραφή, έτσι δεν είναι;