Macro to print a changing report based on lookups

[Litmus]

I have a different report to print for 80 individuals based on lookups - I am using a single unique identifier to change the data on the report (G1). Here is my very weak macro attempt but it only prints the for first person on the list. How do I make this loop to print the next report and so on...

For I = 1 To 5
Sheets("Data").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Selection.Copy
Sheets("Report").Select
Range("G1").Select
ActiveSheet.Paste
Range("A1:D29").Select
Selection.PrintOut Copies:=1
Next

Any help would be very well received.

 

[PatOBrien198]

Although you are looping 5 times, it appears that you are not using the value of I to make any changes. Perhaps:

ActiveCell.Offset(1, 0).Select
should be
ActiveCell.Offset(I, 0).Select

 

[Litmus]

Thank you that is very helpful - works perfectly.
Perhaps I can ask you another question. The report contains grades - not all pupils do the same subjects, how do I remove rows with no grade? e.g. Art and Business

Course	Type	Equivalency	Grade
Art and Design	GCSE	x1 GCSE
Business	BTEC	x1 GCSE
Computer Science	GCSE	x1 GCSE
Dance	BTEC	x1 GCSE
Drama	GCSE	x1 GCSE
Drama	RSL	x1 GCSE
Engineering	BTEC	x1 GCSE
English Language	GCSE	x1 GCSE	5
English Literature	GCSE	x1 GCSE	5
French	GCSE	x1 GCSE
Geography	GCSE	x1 GCSE	4
History	GCSE	x1 GCSE
Maths	GCSE	x1 GCSE	4
Media Studies	BTEC	x1 GCSE	M2
PE/Sport	BTEC	x1 GCSE	M2
Religious Education	GCSE	x1 GCSE	7
Science	GCSE	x2 GCSEs	3-3
Travel and Tourism	BTEC	x1 GCSE

<colgroup><col><col><col><col></colgroup><tbody>
</tbody>

 

[PatOBrien198]

There are multiple ways to accomplish this...
One way would be to sort the information by grade, then delete all the rows where there is no grade.

If the original order is important, create an "Original Order" column with sequential numbers. Then after the sort by grade, you could sort by Original Order to get back to the original sort order.