Another 'typo'. well mistake really - I was in a rush, honest.
Anyway, 3rd time lucky.
Sub RemoveDash()
Dim LastRow As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Range("C2:C" & LastRow).FormulaR1C1 = "=LEFT(RC[-1],LEN(RC[-1])-9)"
Range("D2:D" & LastRow).FormulaR1C1 = "=LEFT(RC[-2],LEN(RC[-2])-5)"
Range("E2:E" & LastRow).FormulaR1C1 = "=RIGHT(RC[-1],LEN(RC[-1])-3)"
Range("F2:F" & LastRow).FormulaR1C1 = "=RIGHT(RC[-4],LEN(RC[-4])-7)"
With Range("G2:G" & LastRow)
.FormulaR1C1 = "=RC[-4]&RC[-2]&RC[-1]"
.Copy
.Offset(, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Bookmarks