Copy entire row from one sheet to another base on answer

I try to copy a row from sheet1 to sheet2 base on answer on 'Y' or 'N' .
it does nt work so far. I appreciate suggestion on other way to do this or modification of these code. I am urgent need.
thanks.

Sub COPY_TRUE()

Worksheets("Sheet1").Row().Copy _
Destination:=Worksheets("Sheet2").Row(7)

End Sub

Sub COPY_FALSE()

Worksheets("Sheet1").Row().Copy _
Destination:=Worksheets("Sheet3").Row(7)

End Sub

Dim myrow As Integer
myrow = ActiveWindow.RangeSelection.Row
Rows(myrow).Select 'This copies the selected row
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet3").Cells(3, 1)
Application.CutCopyMode = False
Range("7:7").Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet3").Cells(1, 1)
Application.CutCopyMode = False