Copy rows to new sheet, based on y/n value in 1st column

Hi All,
I'm pulling my hair out (partly cause my VBA skills are nill, and because I know this can be easily done).

I have a single sheet that lists available items, prices, etc. When doing quotes, you simply put y/n in Col:A for each item. I then want a simple macro that will copy all of the rows with "yes" into a second sheet. Sample data with end result attached.

I did try and butcher this macro to do what I want, and whilst it does copy data across, it's not really working. Firstly as I think it is searching along a row and copy columns, whereas I need to search a column and then copy rows.

Sub copyQuote()
    Dim LC As Long, LR As Long, FC As Long, c As Range, rData As Range
    Application.ScreenUpdating = False
    LC = ActiveSheet.Range("A4").End(xlToLeft).Column
    For Each c In Range(Cells(4, 2), Cells(4, LC))
        If c.Value = "y" Then
            FC = Sheets("License").Range("A4").End(xlToLeft).Offset(, 1).Column
        Else
            FC = 1
        End If
        LR = Cells(Rows.Count, c.Column).End(xlUp).Row
        Set rData = Application.Union(c.Offset(1), c.Offset(13).Resize(LR - 5))
        rData.Copy Sheets("Legrand").Cells(1, FC)
    Next c
    Application.ScreenUpdating = True
End Sub

Thanx in advance.
sample_data.xls

Using autofilter will be quicker than looping through I think:

Sub macro_1()
Dim lrow
lrow = Range("A" & Rows.Count).End(xlUp).Row
Range("A4:E" & lrow).AutoFilter 1, "y"
Range("A1:E" & lrow).Copy Sheets("Sheet1").Range("A1")
End Sub

Ok, tested on a dataset......

ragulduy - It filters the data, but doesn't seem to copy it. I have changed the "sheet" name to match my data..... Though, it did actually make me think and forehead slap myself. I could just apply a manual filter to column A!

Naveed - This works great. Do have one question, my actual data has formulas in the cells. Could the macro copy the 'values' rather than the formulas?

Cheers,

Fantastic guys, thanx for the quick replies. I knew it fairly straight forward, for those who know!

Will give it a go.

Cheers,

Fantastic.... Thanx Naveed!