VBA Copy Formula down a column until last non empty cell

[Jeannie2006]

Good Afternoon,

I have created a macro that inserts a column (B) and in the first row I have placed a Formula. It takes the 4th element from a string from column A. I need to copy this macro down column B until there is no data in row A. I have no clue how to write the VBA code for this. Can someone please help me?

Thank you,

[Jeannie2006]

This is what my code looks like so far:

Sheets("1358").Select
Columns("B:B").Select
Selection.Insert Shift:=x1ToRight, CopyOrigin:=x1FormatFromLeftorAbove
Range("b4").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],10,4)"
Range("B5").Select

[efernandes67]

Hi Jeannie,

Put this code in a module. The formula will be entered from cell B2 until B...

Please Login or Register  to view this content.

Regards,
Elio Fernandes

[HaHoBe]

Hi, Elio Fernandes,

shouldn´t it be

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Ciao,
Holger

[efernandes67]

Holger,

I agree with you.

Regards,
Elio Fernandes