Option Explicit
Sub Test1()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim rngVisible As Range
Dim fRng As Range
Dim X As Long
Dim R As Long
'AutoFiltering
Set Ws1 = Workbooks("Standard_List1.xls").Sheets("SL1-6")
Set Ws2 = Workbooks("Standard_List1.xls").Sheets("SCS_List")
Set fRng = Ws1.Cells(6, 1).CurrentRegion
fRng.AutoFilter
fRng.AutoFilter Field:=13, Criteria1:="YES"
On Error Resume Next
Set rngVisible = fRng.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
'Now starting to copy
'Copy #1
Sheets("SCS_List").Range("B2:J1000").ClearContents
Sheets("Sl1-6").Select
Range("A3:A3").Select
Range("A3:A3", ActiveCell.End(xlDown)).Select
Selection.Copy
Sheets("SCS_List").Select
Range("B2:B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Copy #2
Sheets("Sl1-6").Select
Range("B3:B3").Select
Range("B3:B3", ActiveCell.End(xlDown)).Select
Selection.Copy
Sheets("SCS_List").Select
Range("C2:C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Copy #3
Sheets("Sl1-6").Select
Range("Q3:Q3").Select
Range("Q3:Q3", ActiveCell.End(xlDown)).Select
Selection.Copy
Sheets("SCS_List").Select
Range("I2:I2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Copy #4
Sheets("Sl1-6").Select
Range("P3:P3").Select
Range("P3:P3", ActiveCell.End(xlDown)).Select
Selection.Copy
Sheets("SCS_List").Select
Range("J2:J2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False