Your recorded macro seems to be doing the job so far as it goes and it seems to me that all you need to do to it now is leave your two row gap and paste your additional row in.

This code will put you in column 1 of the row 3 below the last data  in the 4 columns:

Range("A1").CurrentRegion.Select
Selection.Offset(Selection.Rows.Count + 2, 0).Resize(1, 1).Select
You can now paste in your row.

Since there's to be no manipulation of the data, and since you don't want to link data, that should be about all you need.