Any suggestions for MACRO to continue the Concatenate formula until the last row?

[kshaver]

Hello! In my situation I want to concatenate two columns into a new column (with a slash in between).

The desired 'starting' active cell would be E2, and the formula entered is =concatenate(I2,"/",J2).

I am wanting to copy this formula all the way down column E so that it reflects the rest of columns I and J (I3,"/",J3), (I4,"/",J4") etc. The number of entries in the I and J columns will be variable each day, so I need a macro that will copy this formula until the last row of column I.

The current coding I have is:

Range("E2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[4],""/"",RC[5])"

I'm just not sure what to add to continue this formula to the last row of column I. Any suggestions? THANKS!

[kshaver]

I now have this:

Range("E2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[4],""/"",RC[5])"

Dim lrow As Long
With ActiveSheet
lrow = .Range("I" & Rows.Count).End(xlUp).Row
.Range("E2:E" & lrow).FillDown
End With


And it seems to be working.

[InvisibleMan]

Please use Code Tags or the Moderators will be on your tail!

Dim lrow As Long
With ActiveSheet
     lrow = .Range("I" & .Rows.Count).End(xlUp).Row
     .Range("E2:E" & lrow).FormulaR1C1 = "=CONCATENATE(RC[4],""/"",RC[5])"
End With