Generate List if Conditions Are Met

[Legacy 323112]

Hi all,
I am trying to do the following with VBA and have had some trouble, would appreciate any ideas;

- I have an array of data in my excel spreadsheet (range("A2:D401").
- In column D2, I am performing a calculation of B2 minus C2. This formula extends for each row until row 401.
- Once calculated, I want to generate a new sheet with a list of only the values in columns A, E and F for only the records that have values in column D that are less than or equal to 150. This is to be looped and so I would like this list, if generated, to be appended to each time.

Please help!
Thanks

Example;

In this example, I would like an output in another spreadsheet of "JOHN" "TYPE-2" "AGE-20", because NUMBER3 for JOHN is <150
However, there should be no output of MARY.

	A	B	C	D	E	F
1	NAME	NUMBER 1	NUMBER 2	NUMBER 3	TYPE	AGE
2	JOHN	200	12	88	1	20
3	MARY	200	10	190	3	22

<tbody>
</tbody>

 

[Legacy 323112]

My mistake, it seems to work fine!

Thanks for all your help!

 

[L. Howard]

Maybe like this...

Howard

Sheets("To Re-Fill").Activate
     If Range("A2") <> "" Then
        Range("A:A").Copy
        Sheets("Output").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
     End If