-----Original Message-----
My worksheet has the following headings:

RegNo FirstName LastName Country Registered


The sheet has over 500 rows of data. Can anyone suggest a
macro that would allow me to insert a blank row after
every 4 lines of data?


.
c=1
do until isempty(range("a" & c)) = true
c=c+1
loop

for y=1 to c step 4
columns(y).select
seltion.insert shift:=xldown
next y

have a play around with that, you may need to alter it
slightly.