help with efficiency

[MichaelRose94]

Hi I am trying to place in column A, a list of numbers from 1, 2, 3, 4, etc.

At the moment, I am using the following VBA code. Could any one recommend a more efficient way? Thanks in advance


Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A1440")
Range("A1:A1440").Select
Range("D1").Select

 

[MichaelRose94]

Also for the following, what would be a more efficient way of getting the same results? Like and smiles will be coming your way!

Sub ABCDE()
'
' ABCDE Macro
'
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Record"
Range("B1").Select
ActiveCell.FormulaR1C1 = "DATE"
ActiveWindow.LargeScroll Down:=1
Range("B30").Select
ActiveWindow.SmallScroll Down:=-511
Range("C1").Select
ActiveCell.FormulaR1C1 = "TIME"
Range("D1").Select
ActiveCell.FormulaR1C1 = "FLOW_PV"
Range("E1").Select
ActiveCell.FormulaR1C1 = "FLOW_TOTAL"
Range("D2").Select
End Sub

 

[Vbagreenhorn1]

for your first question:

For i = 1 To 1440
    Cells(i, 1) = i
Next

Second:

Rows(1).Insert 
 
Cells(1).Resize(, 5) = Array("Record", "DATE", "TIME", "FLOW_PV", "FLOW_TOTAL")

 

[Fluff]

For the 1st one

Range("A1").Value = 1
Range("A1").AutoFill Range("A1:A1440"), xlFillSeries