View Single Post
 
Old 03-04-2016, 11:53 PM
cobbe cobbe is offline Windows 10 Office 2016
Novice
 
Join Date: Mar 2016
Posts: 6
cobbe is on a distinguished road
Default

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
Reply With Quote