VBA to insert column and write concatenation formula

[nirvehex]

Hi,

I'm trying to insert a column in between columns A & B. Then in the new B1 I would like to write text that says "Unique Key"

Then in cells b2:end of data set I want to write =concatenate(F1,"-",R1,"-",T1) and have it copy this formula all the way down column B until the data stops in those other columns.

I have the first part of the code which inserts a column, the rest is hard for me:

Here's what I have so far:

Sub sbInsertingColumns() 
    Dim x As Long 
    Range("B1").EntireColumn.Insert 
End Sub

Any ideas?

Thanks!

 

[JackDanIce]

Try:

Sub Macro1()

Dim x As Long
Dim sConc As String

Application.ScreenUpdating = False

Range("B1").EntireColumn.Insert shift:=xlToRight
Range("B1").Value = "Unique Key"
x = Range("A" & Rows.Count).End(xlUp).Row
sConc = "=F2&""-""&R2&""-""&T2"
Range("B2").Resize(x - 1).Formula = sConc

Application.ScreenUpdating = True


End Sub

 

[nirvehex]

Thanks!

Try:

Sub Macro1()

Dim x As Long
Dim sConc As String

Application.ScreenUpdating = False

Range("B1").EntireColumn.Insert shift:=xlToRight
Range("B1").Value = "Unique Key"
x = Range("A" & Rows.Count).End(xlUp).Row
sConc = "=F2&""-""&R2&""-""&T2"
Range("B2").Resize(x - 1).Formula = sConc

Application.ScreenUpdating = True


End Sub

 

[JackDanIce]

You're welcome.