AutoFill without sequential order
 

Hello,
I'd like to copy B1:B3 then autofill it till the last row of column A without
the number sequence. Here's my code, I don't know what variables to change or
add. Still new at this.


Sub Step2Add_New_Column()
'
' Step2Add_New_Column Macro
'

'

Dim LR As Integer

Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "direct"
Range("B2").Select
ActiveCell.FormulaR1C1 = "indirect1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "indirect2"
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B1:B3").Select
Selection.AutoFill Destination:=Range("B1:B" & LR)
Range("B1:B" & LR).Select
Selection.Copy
Application.CutCopyMode = False

With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

End Sub

Thanks for your time in advance!

AutoFill without sequential order
 

On Jun 11, 2:15*am, lancejularbal wrote:
Hello,
*I'd like to copy B1:B3 then autofill it till the last row of column A without
*the number sequence. Here's my code, I don't know what variables to change or
*add. Still new at this.

*Sub Step2Add_New_Column()
*'
*' Step2Add_New_Column Macro
*'

*'

*Dim LR As Integer

*Columns("B:B").Select
*Selection.Insert Shift:=xlToRight
*Range("B1").Select
*ActiveCell.FormulaR1C1 = "direct"
*Range("B2").Select
*ActiveCell.FormulaR1C1 = "indirect1"
*Range("B3").Select
*ActiveCell.FormulaR1C1 = "indirect2"
*LR = Range("A" & Rows.Count).End(xlUp).Row
*Range("B1:B3").Select
*Selection.AutoFill Destination:=Range("B1:B" & LR)
*Range("B1:B" & LR).Select
*Selection.Copy
*Application.CutCopyMode = False

*With Selection
*.HorizontalAlignment = xlRight
*.VerticalAlignment = xlBottom
*.WrapText = False
*.Orientation = 0
*.AddIndent = False
*.IndentLevel = 0
*.ShrinkToFit = False
*.ReadingOrder = xlContext
*.MergeCells = False
*End With

*End Sub

*Thanks for your time in advance!

Say we start with:
1 abc
2 def
3 ghi
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

in cols A & B

This tiny macro:

Sub BringDownThree()
n = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1:B3").Copy Range("B4:B" & n)
End Sub

will copy the B cells downward, producing:

1 abc
2 def
3 ghi
4 abc
5 def
6 ghi
7 abc
8 def
9 ghi
10 abc
11 def
12 ghi
13 abc
14 def
15 ghi
16 abc
17 def
18 ghi
19 abc
20 def
21 ghi
22 abc
23 def
24 ghi


gsnu201003