I don't think I understand what you want but this will find the last cell in
col d and copy it down

Sub filldown()
x = Cells(65536, "d").End(xlUp).Row
Cells(x, "d").Copy Cells(x, "d").Resize(7, 1)
End Sub
--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Trying to write a simple macro to pick a column, go to the last entry and
autofill it to the next cell. Then copy that cell and paste it into the next
7 cells. The autofill is for the date to update and then copy the new date
to the next 7 cells in that column. The code that i tried is given but VB
will not read , mabey ( ) should be [ ] ? Help please.
Sub date2()
'
' date2 Macro
' Macro recorded 2/4/2004 by Husky User
'
Range("B4634").Select
Selection.End(xlDown).Select
i = Selection.End(xlDown).Select
Selection.AutoFill
Destination:=Range("B(i):B(i+1)")Type:=xlFillDefau lt
Range("B(i+1)").Select
Selection.Copy
Range("B(i+2):B(i+8").Select
ActiveSheet.Paste
Range("B4637").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
Range("B4647:B4648").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub