For i = 2 To L
With WSLB
If Cells(i, 4).Value = SsFam Then
If Cells(i, 5).Value = SsFamSs Then
.Range(.Cells(i, 1), .Cells(i, 35)).Copy
With WSR
'.Activate
.Range(.Cells(C, 1), .Cells(C, 35)).PasteSpecial xlValues
C = C + 1
End With
'.Activate
End If
End If
Application.CutCopyMode = False
End With
Next