Sub fillcol()
Cells(2, 3).AutoFill Destination:=Range(Cells(2, 3), Cells(17, 3))
End Sub

for the active column
Sub fillcol()
ac=activecell.column
Cells(2, ac).AutoFill Destination:=Range(Cells(2,ac), Cells(17, ac))
End Sub

same idea for your delete
Range(Cells(2,3), Cells(17, 13)).clear
--
Don Guillett
SalesAid Software

"ExcelMonkey" wrote in message
...
I know I can drag/fill and delte a colum range as follows below from a
recorded macro. How do I use column numbers in VBA to replicate these
acts?
Assume ahead of time I know for the drag/fill I kno my range is C2:C17.
Also assume that for the delete I know the starting range of C19:J32.

Thanks

'Drag and fill
Range("C2:C17").Select
Selection.AutoFill Destination:=Range("C2:J17"), Type:=xlFillDefault
Range("C2:J17").Select

'Delete Range
Range("C19:J32").Select
Range("J19").Activate
Selection.ClearContents