EXCEL VBA複製符合條件的列?

各位大大好:
我的A欄有 YES 和FALSE兩種選項，我想根據A欄的條件將屬於YES的資料通通複製到另一個工作表 SHEET1 SHEET2
A B C A B C
YES 12 10 YES 12 10
NO 0 12 YES 15 12
NO 11 10
YES 15 12

這是我目前的寫法，但是只有第一列有複製過去，想請問該如何修改呢?

Sub yes()
Dim i, h As Integer
Sheets("工作表1").Select
For i = 1 To 1200
If Cells(i, "F") = "YES" Then
h = h + 1
Rows(i).Select
Selection.Copy
Sheets("工作表2").Select
Rows(h).Select
ActiveSheet.Paste
End If
Next i
End Sub