Macro anger!!

[Audiojoe]

How do I write a macro to do the following:

Suppose the active cell is A1. I need to delete rows - 1,2,3,6,10,12,13 and 14.

But I need to it be relative to where the active cell is. I've tried recording it but it keeps going back to A1 and doing the macro again. I need it to perform the task starting wherever the active cell is

Any ideas?

 

[Dave Hawley]

Hi

Try:

ActiveCell.Range("A1,A2,A3,A6,A10,A12,A13,A14").EntireRow.Delete

It's relative to the activecell

 

[Audiojoe]

Dave you are an angel!

 

[Mark O'Brien]

Something like this should work, the row is offset based upon the activecell. I'm not sure if I recommend doing this since you can irreversibly delete data by mistake using "Activecell". Anyway, here's what you asked for:

<pre>
Option Base 1

Public Sub DeleteRows()

Dim iArray(8) As Integer
Dim i As Integer

iArray(1) = 1
iArray(2) = 2
iArray(3) = 3
iArray(4) = 6
iArray(5) = 10
iArray(6) = 12
iArray(7) = 13
iArray(8) = 14

For i = 8 To 1 Step -1 'step backwards since we're deleting rows
ActiveCell.Offset(iArray(i), 0).Rows.Delete
Next

End Sub</pre>