New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Sheets("Actual & Flexed Workload").Activate lastRow = Range("A" & Rows.Count).End(xlUp).Row 'Get last row to fill down Range("B3").Select 'Get consistent begin cell ' Most likely will be january and each month I will get new month column Selection.End(xlToRight).Select 'move to end of row to add new month data in that col ActiveCell.Offset(0, 1).Select ' I need to get this cell range and save as rngFound so after getting data from another sheet I can come back and paste in this column 'Poor effort of catching active cell AFWrow = ActiveCell.Row AFWcol = ActiveCell.Column rngFound = Range("R" & AFWrow & "C" AFWcol ") ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-8],P01Currentmonth.csv!R1C24:R +lastRow+ C29,6,FALSE)" Windows("2011 U.S. Financial Plan.xls").Activate rngFound.Select Selection.AutoFill Destination:=Range(rngFound) Range(rngFound).Select
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.