Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Sub Add_Col_L() ' ' Add_Col_L Macro ' ' Cells.Find(What:="Project Title", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("C1").Select ActiveCell.FormulaR1C1 = "L" Columns("C:C").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.ColumnWidth = 20 Selection.NumberFormat = "General" Range("C2").Select ActiveCell.FormulaR1C1 = "=LEFT(RC)" Range("C2").Select Selection.Copy Range("D3").Select Selection.End(xlDown).Select ' Fix: Change below to Go 1 cell left instead of specific cell Range("C1770").Select Range(Selection, Selection.End(xlUp)).Select Range("C3:C1770").Select Range("C1770").Activate ActiveSheet.Paste End Sub
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.