VBA: Copy certain columns from one sheet to another

[RSa]

In "Sheet 1" I have data in columns A thru E.
Based on Column E result ... If Column E = "Y", then I need to copy those rows, columns A thru D only, to "Sheet 2" starting in row 15
Appreciate any help.

[AliGW]

You will need VBA for this - I shall move the thread for you.

[RSa]

Needing to copy rows of data (columns A,B,C,D) from one spreadsheet to another based on criteria in column E
Here is what I have so far.
This pulls in all data from columns A:E, I just need A:D & it's not pulling in all the rows.

Sub CopyY()
Dim c As Range
Dim j As Integer
Dim Source As Worksheet
Dim Target As Worksheet

' Change worksheet designations as needed
Set Source = ActiveWorkbook.Worksheets("Sheet 1")
Set Target = ActiveWorkbook.Worksheets("Sheet 2")

j = 15 ' Start copying to row 1 in target sheet
For Each c In Source.Range("E1:E1000") ' Do 1000 rows
If c = "Y" Then
Source.Rows(c.Row).Copy Target.Rows(j)
j = 15
End If
Next c
End Sub