Code:
Sub CopytoLast()
Dim LastRow As Long
Columns("F").ClearContents
LastRow = Cells(Rows.Count, "E").End(xlUp).Row
Range("F2").Formula = "=CONCATENATE(A2,"" "", D2, "" "", E2)"
Range("F2").AutoFill Destination:=Range("F2:F" & LastRow)
End Sub
K.r., Cobbe