L
lancejularbal
Hello
I'd like to copy B1:B3 then autofill it till the last row of column A withou
the number sequence. Here's my code, I don't know what variables to change o
add. Still new at this
Sub Step2Add_New_Column(
' Step2Add_New_Column Macr
Dim LR As Intege
Columns("B:B".Selec
Selection.Insert Shift:=xlToRigh
Range("B1".Selec
ActiveCell.FormulaR1C1 = "direct"
Range("B2".Selec
ActiveCell.FormulaR1C1 = "indirect1"
Range("B3".Selec
ActiveCell.FormulaR1C1 = "indirect2"
LR = Range("A" & Rows.Count).End(xlUp).Ro
Range("B1:B3".Selec
Selection.AutoFill Destination:=Range("B1:B" & LR
Range("B1:B" & LR).Selec
Selection.Cop
Application.CutCopyMode = Fals
With Selectio
.HorizontalAlignment = xlRigh
.VerticalAlignment = xlBotto
.WrapText = Fals
.Orientation =
.AddIndent = Fals
.IndentLevel =
.ShrinkToFit = Fals
.ReadingOrder = xlContex
.MergeCells = Fals
End Wit
End Su
Thanks for your time in advance!
I'd like to copy B1:B3 then autofill it till the last row of column A withou
the number sequence. Here's my code, I don't know what variables to change o
add. Still new at this
Sub Step2Add_New_Column(
' Step2Add_New_Column Macr
Dim LR As Intege
Columns("B:B".Selec
Selection.Insert Shift:=xlToRigh
Range("B1".Selec
ActiveCell.FormulaR1C1 = "direct"
Range("B2".Selec
ActiveCell.FormulaR1C1 = "indirect1"
Range("B3".Selec
ActiveCell.FormulaR1C1 = "indirect2"
LR = Range("A" & Rows.Count).End(xlUp).Ro
Range("B1:B3".Selec
Selection.AutoFill Destination:=Range("B1:B" & LR
Range("B1:B" & LR).Selec
Selection.Cop
Application.CutCopyMode = Fals
With Selectio
.HorizontalAlignment = xlRigh
.VerticalAlignment = xlBotto
.WrapText = Fals
.Orientation =
.AddIndent = Fals
.IndentLevel =
.ShrinkToFit = Fals
.ReadingOrder = xlContex
.MergeCells = Fals
End Wit
End Su
Thanks for your time in advance!