Strange, it shouldn't give any error. I've posted it after testing. (2) ensures that the data is written on the Next Line otherwise the data will keep overwriting on the same row!

Post your workbook then.