Auto fill

[Hein]

Hi all,

Is it possible to make some VBA procedure to make the autofill procedure a little easier.
As you can see in the demo I have some names in column D.
In column C i want the numbers 1, 2 etc

Now I do this by entering the 1 and 2 and than dubbelclick on the square if you select both cells.
This means that I have to remove my hand from the keyboard to use the mouse, and that lots of times

Is there some procedure that captures this so that

 Selection.AutoFill Destination:=Range("C5:C16")
    Range("C5:C16").Select

can be done with a key combination.

Thanks in advance
Hein