Sub AddRows()
Dim lastRow as Long, i as Long
lastrow = cells(rows.count,1).end(xlup).row
for i = lastrow to 1 step -1
cells(i,1).Entirerow.Insert
cells(i,1).Value = "Union"
Next
End Sub

Test this on a copy of your data.
--
Regards,
Tom Ogilvy

"Samuel" wrote in message
...
Hello,

I've a sheet with records from cell a to k, where i want to insert a row
between each record (there are 2000 records in the sheet) and the value
union in the first cell of the newly inserted row.

How can i do this?