import with blank rows

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