Selection.AutoFill Destination:=Range

p45cal · #3 06-15-2019, 04:20 AM

I agree with Alansidman, so this is a guess:

Code:

Sub CRL_FIX()
' Fix the SUP/WRK and Telephone data
'
lr = Application.Max(2, Cells(Rows.Count, "A").End(xlUp).Row)
Columns("C:C").Insert
With Range("C2:C" & lr)
  .FormulaR1C1 = "=(RC[-2]&RC[-1])"
  .Value = .Value
End With
Range("C1").Value = "CHGEWRK"

With Range("AI2:AI" & lr)
  .FormulaR1C1 = "=(LEFT(RC[-1],3)&""-""&MID(RC[-1],4,3)&""-""&RIGHT(RC[-1],4))"
  .Value = .Value
End With
Range("AI1").Value = "TELEPHONE"
Columns("AH:AH").Delete
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Autofill a field based on drop down list selection	lascough20	Word	2	09-21-2018 02:24 AM
Distribute text in one cell across a range of cells (overcoming selection.range.cells.count bug)	slaycock	Word VBA	0	02-18-2017 07:00 AM
Creating AutoFill form - AutoFill information depending on a selection.	RyanHarper	Word	3	06-15-2015 01:01 PM
Selection or Range	Tommes93	Word VBA	1	04-10-2014 02:50 AM
Autofill a form which is contingent on a dropdown selection.	biffle0764	Word	2	05-09-2012 12:54 PM