Insert formula into cells with variable range

[wpryan]

Hi All,
Thanks again for your excecllent help in the past. I have a data export function that finds a dynamic range, copies the values and inserts into a new worksheet. This part is working well.

What I need it to do next is to insert two columns before the imported data and add a simple formula (e.g. "=range("C2")" or similar) to each cell in the added columns.

thanks in advance!

 

[VoG]

Possibly

Sub InsCols()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Columns("A:B").Insert
Range("A1:B" & LR).Formula = "=$C1"
End Sub

 

[wpryan]

Thanks Peter. Perhaps I wasn't clear enough with my question. I need all of the cells between let's say row 3 and the last row to have an identical formula. The code you kindly posted puts the formula only on the last row.

 

[VoG]

When I tested it, it placed the formula all the way down.

Perhaps provide a screenshot using Excel Jeanie http://www.excel-jeanie-html.de/html/hlp_schnell_en.php

 

[wpryan]

Sorry, I modified it for my specific spreadsheet, and I had a typo. It's working great, thanks again.