poz evo jedan kod
pa probaj u svome primjeru prilagoditi
Dim wbCopy As Workbook
Dim wsCopy As Worksheet
Dim rngCopy As Range
Dim wbPaste As Workbook
Dim wsPaste As Worksheet
Dim rngPaste As Range
Set wbCopy = Workbooks.Open("C:\vasnaziv.xls") 'change path
Set wsCopy = wbCopy.Worksheets("baza")
Set rngCopy = wsCopy.Range("a:e").EntireColumn 'sta kopirati
Set wbPaste = Workbooks.Open("C:\vasnaziv2.xls.xls")
Set wsPaste = wbPaste.Worksheets("baza") 'kopira na drugi list?
Set rngPaste = wsPaste.Range("a1") 'zamjeni ako treba
rngCopy.Copy
rngPaste.PasteSpecial
Application.DisplayAlerts = False
wbCopy.Close
Application.DisplayAlerts = False
wbPaste.Save
wbPaste.Close
MsgBox "Uspješno ste kopirali podatke", vbInformation, "c0de"
Jasmin