VBA help needed - For tiny adjustment to existing code

[skyport]

This should be just a very minor change but I can't figure it out. Maybe someone can help. I am using an existing VBA code from a module that has worked perfectly so far. It concatenates columns A-G and puts the result in Column K. I want to keep the code doing exactly what it does performing the same features with no changes except have it put the result in column M instead of K. I tried changing the code myself by substituting the K factor in the code with M to accomplish this however, although it does concatenate to M instead of K, it does it with columns C-I instead of the A-G, which is needed. Please see code below:


Sub Concat()
Dim i As Long, LR As Long, j As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("K" & i)
.Value = .Offset(0, -10).Value & .Offset(0, -9).Value & .Offset(0, -8).Value & _
.Offset(0, -7).Value & .Offset(0, -6).Value & .Offset(0, -5).Value & .Offset(0, -4).Value


j = InStr(.Value, ". ")
.Characters(Start:=1, Length:=j).Font.Bold = True
End With
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[vcoolio]

Hello Skyport,

I believe that you only need to adjust your offsets to allow for the fact that you are moving to the right another two columns.

Cheerio,
vcoolio.

 

[skyport]

Sounds logical but I confess I don't know what I'm doing there. How would that appear in the actual code?

 

[vcoolio]

Hello Skyport,

For example:-

.Offset(0, -10).Value

should change to:-

.Offset(0, -12).Value

etc., etc......

Just change the them all by 2.

Cheerio,
vcoolio.

 

[skyport]

That did it. Thanks so much for your kind help.

 

[vcoolio]

Hello Skyport,

You're welcome. Glad that I could help.

Cheerio,
vcoolio.