Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
Sub PrepCNLT_ForVLOOKUP() ' ' PrepCNLT_ForVLOOKUP Macro Sheets("FormatCNLT").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Application.Run "'Daily Metrics.xlsm'!ConcateniateColAandColB" Columns("C:C").EntireColumn.AutoFit Range("G2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Yesterday,1,FALSE)" Range("G2").Select ' Need to add something here to autofill formula down no matter how many rows ' are in that column Selection.AutoFill Destination:=Range("G2:G418") Range("G2:G418").Select ' Without using absolute cell references. Columns("G:G").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A2").Select End Sub Sub NameTheNewlyConcatinatedRangeToYesterday() ' Range("C2").Select 'Same thing here, I need to select however many rows in the column, and name the 'range yesterday. It would be nice if this could get included into the above Sub Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Names.Add Name:="Yesterday", RefersToR1C1:= _ "=FormatCNLY!R2C3:R412C3" End Sub