Copy and Paste till last Last Column

I am writing a macro that starts by inserting the following formula in A7

=IF(ISBLANK(A4),A5,CONCATENATE(A4," ",A5))

I then want to macro to copy this across row 7 until row 5 is blank.

Thanks you.