import with blank rows

i have imported (using the wizard) data from table/query (from access) into blank worksheet and recorded the process with a macro so i can re-run the code. Is there any way to put a blank row in between each row?

You can add this code at the end of your macro:

This code will insert blank from row 2 and each 2 rows until the last row (based on data presents in column A):

ultRiga = Range("a65536").End(xlUp).Row
currentRow = 2
Do While currentRow <= ultRiga
DoEvents

Rows(currentRow).Insert
currentRow = currentRow + 2
ultRiga = ultRiga + 1
Loop
a = 1

Regards,
Antonio