Czy może mi ktoś wytłumaczyć dlaczego mój kod nie chce działać ?
Sub Copy_Past()
Dim wsOne As Worksheet
Dim wsTwo As Worksheet
Dim lCopyLastRow As Long
'Load workbooks
Set wsOne = Workbooks("SomeFile1.xlsx").Worksheets("Sheet1")
Set wsTwo = Workbooks("SomeFile2.xlsx").Worksheets("Sheet1")
'Find Last row
lCopyLastRow = wsOne.Cells(wsOne.Rows.count, "A").End(xlUp).row
'Copy and past
wsOne.Range("A2:A" & lCopyLastRow).Copy _
wsTwo.Range("A2").PasteSpecial Paste:=xlPasteValues
Problem pojawia się przy Copy and Past. Dostaje Syntax Error, jeśli usunę .PasteSpecial Paste:=xlPasteValues to się wkleja normalnie ale ja potrzebuję to wkleić jako wartość i się nie da w ten sposób