Copy the whole row in another sheet if Value in a cell is YES

[sunjam]

Hi,

Please help..

It seems that this Codes only copy the Column B. I need to capture the whole Row and reflect it to another sheet.



Sub RangeCopyPaste()
Dim cell As Range
Dim NewRange As Range
Dim MyCount As Long
MyCount = 1

For Each cell In Worksheets("Sheet1").Range("C2:C10")
If cell.Value = "YES" Then
If MyCount = 1 Then Set NewRange = cell.Offset(0, -1)
Set NewRange = Application.Union(NewRange, cell.Offset(0, -1))
MyCount = MyCount + 1
End If
Next cell

NewRange.Copy Destination:=Worksheets("Sheet2").Range("A2")


End Sub


Thank you in advance!