1: 2: 3: 4: 5: 6: 7:
Sub Test() ' Range("A1").Select ActiveCell.Select Selection.AutoFill Destination:=ActiveCell.Range("A1:A3285") ActiveCell.Range("A1:A3285").Select End Sub