Problem with paste special

Hi there,

I have been using this same code many times but for some reason this is not working now when I try to copy-paste values between two workbooks. Highly appreciate if you could help me with this issue.

Sheets("aaaa").Range("a1:O" & lastrow2).Select
Selection.Copy
Dim mastervika As Integer

Workbooks.Open (Taxfree.Tiedosto)
Sheets("XXXXXXX").Select
mastervika = cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.cells(mastervika + 1, 1).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

Cheers,

Ville

Problem solved.

Sheets("aaaa").Range("a1:O" & lastrow2).Select
Selection.Copy
Dim mastervika As Integer

Workbooks.Open (Taxfree.Tiedosto)
Sheets("XXXXXXX").Select
mastervika = cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.cells(mastervika + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False