Combine lines of code

[FROGGER24]

Can these lines of code be consolidated into 1 or 2 lines of code

<
Range("I1:I" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=(RC[-8]+RC[-7])"
Range("J1:J" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=(RC[-7]+RC[-6])"
Range("K1:K" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=(RC[-6]+RC[-5])"
Range("L1:L" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=(RC[-5]+RC[-4])"
Range("M1:M" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=(RC[-4]+RC[-3])"
Range("N1:N" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=(RC[-3]+RC[-2])"
>

 

[deanst]

Hi - it's not quite 2 lines but my suggestion is:

Sub test()


numCols = 6


For iter = 1 To numCols
    Range("I1").Offset(0, iter - 1).FormulaR1C1 = "=(RC[" & (-9 + iter) & "]+RC[" & (-8 + iter) & "])"
Next iter


Range("I1").Resize(Range("B:B").SpecialCells(xlCellTypeLastCell).Row, numCols).FillDown


End Sub

 

[FROGGER24]

Dean, thank for your formula. What I need to do is combine 2 columns into one,(Containing Date & time). So when the code has ran the outputs would only occupy 3 columns (I,J,K)

 

[JackHoff]

Would a CONCATENATE work in this case?, can you show a sample of what is in the cells you want to combine and what would you like the final result to look like, such as spaces or other symbols involved, I will leave the formula to Dean.

 

[deanst]

A data sample would be helpful here just to be clear what you need to do.

Concatenate function would work fine as well as using the '&' operator.