copy Tabs, based on two criteria in column J and paste values

Hi.
the code below works, but for what I need two things missing.

1º Copy all data from all tabs but only if it is equal to 1 or 2 in column J

2º Copy and paste values

Public Sub Marreco() 
    Dim ws  As Worksheet, _ 
    LR1 As Long, _ 
    LR2 As Long 
     'Dest As Range
     'Set Dest = Sheets("Destination").Range("A" & LR1)
    Application.ScreenUpdating = False 
    For Each ws In ActiveWorkbook.Worksheets 
        If ws.Name <> "Destination" Then 
            LR1 = Sheets("Destination").Range("A" & Rows.Count).End(xlUp).Row + 1 
            LR2 = ws.Range("J" & Rows.Count).End(xlUp).Row 
            ws.Range("A11:J" & LR2).Copy Destination:=Sheets("Destination").Range("A" & LR1) 
             'ws.Range("A11:J" & LR2).Copy
             'Dest.PasteSpecial xlPasteValues
        End If 
    Next ws 
    Application.ScreenUpdating = True 
End Sub

Cross-Post
http://www.thecodecage.com/forumz/mi...te-values.html

Thanks