Fill data from list to exact cell, print, repeat

[BlackThorne]

Hello,
please I need help with a little work project in Excel.
We have parking cards for our employees (300+) and they are valid only till the end of the year, which means we will have to print out new ones. I have uploaded image of what our cards look like in Excel, two fit on one page (A4).

My problem is I have 300+ licence plate numbers downloaded from our internal database as another excel sheet (SPZ on the image) and I basically need all of them filled one by one to the cards.

Solution I came up with, but am unable to write a macro for is to:
1) Copy first two licence plate numbers from top down list and insert them to the cells I need them in.
2) Print the page (two parking cards)
3a) Delete first two rows and repeat from 1) till blank (end of list)
3b) Copy next two licence plate numbers below and repeat from 2) till blank (end of list)
- I did and tested first two points as macro and it works, but with my limited knowledge of VBA I am unable to write a loop for it or make it stop when comes to blank.

Can you please help me? Or can you think of any other solution for these 300+ licence plate numbers to be printed out without need of manually copying them to cell and print and repeat?

Thank you very much for your help.

 

[Candyman8019]

You could use a FOR NEXT loop to advance through your rows. It would be something along the lines of:
Set sh = ActiveSheet
RowCount = 300
For Each rw In sh.Rows
'insert your code to populate the first two lines into the form'
'insert your code to print the form'
RowCount = RowCount + 2
Next rw

 

[BlackThorne]

Hi Candyman8019,

Thank you very much for your answer. My code does look like this (see below) when I insert mine into your loop.
I am not sure why (maybe because of my poorly specified code), but it keeps looping only the first two cells I started with and never goes to another. I solved that by adding line which deletes first two rows which makes the loop to add and print the data from next two rows, BUT the second problem is that it never stops. I changed RowCount to equal 4 or just 2, but the loop keeps on and on (till I cancel the print, because I am "printing" to PDF for testing purposes).
Can you please take a second look at this?

Set sh = ActiveSheet
RowCount = 300
For Each rw In sh.Rows
Range("U54").Select
Application.CutCopyMode = False
Selection.Copy
Range("G21:J22").Select
ActiveSheet.Paste
Range("U55").Select
Application.CutCopyMode = False
Selection.Copy
Range("G47:J48").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
RowCount = RowCount + 2
Next rw

 

[Candyman8019]

Try changing 'For Each rw In sh.Rows' to 'For rw = 1 to RowCount'

 

[BlackThorne]

Yes, with addition of code that deletes rows just used and manually setting up the count it works. Perhaps a little rough on the edges, but it will work for what we need.
Thank you very much