Range Sınıfının Paste Special Yöntemi Başarısız Hatası

[unfors]

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

'.........SAYFANIN YERİNE GÖRE DEĞİŞTİR
Workbooks.Open "\\Server\hammadde_stok\URUN_DOSYALARI.xlsm"
veri = ComboBox1.Value
 
Sheets("ÜRÜN_MALİYET_FORMU").Range(veri).Copy

'.........SAYFA ADINA GÖRE DEĞİŞTİR
Windows("FORMLAR.xlsm").Activate
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(ss, 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False
Application.CutCopyMode = False

Windows("URUN_DOSYALARI.xlsm").Close True

Kod daha önce sorunsuz çalışıyordu. Şimdi ise "Range Sınıfının Paste Special Yöntemi Başarısız Hatası" alıyorum

 

[Orion1]

Buyurun.

Application.ScreenUpdating = False

'.........SAYFANIN YERİNE GÖRE DEĞİŞTİR
Workbooks.Open "\\Server\hammadde_stok\URUN_DOSYALARI.xlsm"
veri = ComboBox1.Value
 

'.........SAYFA ADINA GÖRE DEĞİŞTİR
Windows("FORMLAR.xlsm").Activate
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(ss, 1).Value = veri

Windows("URUN_DOSYALARI.xlsm").Close True