Looking to fix a simple problem

Hi!

I am wanting to select the second row of a column to the end of my data for that column and then to insert a column to the right, avoiding the first row entirely.

Here is what I was trying to do (unsuccessfully):


Range("A2:" & (Cells(Rows.Count, "A").End(xlUp).Row)).Insert Shift:=xlToRight

Can someone help me to fix this little problem?

Thanks!

Solved it...simple of course:

Dim erg As Range
Set erg = Range("A3").End(xlDown)


Range("A2", erg).Insert Shift:=xlToRight

That seemed to do the trick!