[anestaki]

Καλημέρα σε όλους
Θα ήθελα και πάλι την πολύτιμη βοήθεια σας.
Σα επισυνάπτω δυο αρχεία κενά και θα ήθελα να μεταφέρω με κώδικα δεδομένα από ένα βιβλίο εργασίας σε άλλο βιβλίο εργασίας κάτι σαν αυτό.

Sub Workbook_Open()
Application.ScreenUpdating = False
Range("Φύλλο! c1").Copy
Dim MyWorkbook As Workbook
Dim g As String
On Error GoTo Errhandler
With Workbooks("biblio.xlsm")
g = .FullName
.Open SaveChanges:=True
End With
Range("Αρχική! a7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Set MyWorkbook = ActiveWorkbook
On Error GoTo 0
Errhandler:
MsgBox "xxxxxx"
End Sub