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