Need code to repeat macro command

[johnwc]

Hello, This is my second post here. I haven't worked much with macros and the work I have had to do so far I have been able to figure out by searching forums such as this one. However, I need this community's help with what I am currently working on. Here's the code I have so far:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2:E2")) Is Nothing Then
Exit Sub
Else
Range("D1").Select
Selection.AutoFill Destination:=Range("D1:D2"), Type:=xlFillDefault
Range("D1:D2").Select
End If
End Sub

I need this code/behavior to repeat in cells E3:E10, skip a couple rows, then repeat in E13:18 skip a couple more rows, repeat in E16:E21, etc.

Thanks!

Version: Excel 2000
OS: XP Pro

 

[johnwc]

Sweet - thank you!

This is really the bulk of the solution I needed. IF you are able to figure out the delete event I would love to add it to my project, but understand if you don't get to it or it takes a while.

 

[johnwc]

Hi Dan,

I've noticed that when an entry is made in a cell other than G8 when G8 is blank, Excel (2000) hangs. Is it possible to add a validation to the code where an error message is thrown if the user attempts to make any entry in a cell in column G when G8 is blank?

Many Thanks,

John