Copy cells and paste into every other cell

[Macpop]

I have a list of cells with data. I would like to copy the cells that meet the specific criteria then paste them in a new location. But the information must be pasted into every other row. These are worksheets that will be constantly updated and I will need to constantly have this happen.

I need a vba that will complete this.

Example:

Worksheet A

NAME	STATE	SCORE	GRADE
Max	FL	100	A
Bill	TX	85	B
Will	MS	50	F
John	NY	98	A

<tbody>
</tbody>

Worksheet B

COLOR	COLOR	COLOR	COLOR
COLOR	COLOR	COLOR	COLOR

<tbody>
</tbody>

Request FOR VBA

Based on worksheet A, I need Worksheet B to be populated based on the criteria of the A scores this way

Max
COLOR	COLOR	COLOR	COLOR
John
COLOR	COLOR	COLOR	COLOR

<tbody>
</tbody>

Thank you for any assistance that can be offered.

 

[rpaulson]

run this on a copy of your file with sheet "A" as your active sheet.

Sub do_it()

wr = 1 'this is the row number to start writing the data to on sheet b
For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row

If Cells(r, "D") = "A" Then
    Worksheets("B").Cells(wr, "A") = Cells(r, "A")
    wr = wr + 2
End If
Next r

End Sub

HTH,

Ross

 

[Macpop]

Thank you!

This worked. I made the needed alterations to suit me, and it came off perfect.