How do I autofill rows when I don't know the no. of rows?
Sub INSERT()
'
Columns("A:A").Select
Selection.INSERT Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A686")
Range("A1:A686").Select
Selection.Copy
Columns("C:C").Select
Selection.INSERT Shift:=xlToRight
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C686")
Range("C1:C686").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1])"
Selection.AutoFill Destination:=Range("E1:E686")
Range("E1:E686").Select
Selection.Copy
Columns("C:C").Select
Selection.INSERT Shift:=xlToRight
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("B:C").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
Selection.Columns.AutoFit
Range("B17").Select
End Sub
Bookmarks