1: 2: 3: 4: 5: 6: 7:
Sub () ' Waaier („A1“). Selecteer ActiveCell.Select Selection.AutoFill Bestemming: =ActiveCell.Range („A1: A3285“) ActiveCell.Range („A1: A3285“). Selecteer Beëindig Sub