Trying to insert rows in a Macro

[jerryb123]

Hello, all:

I'm trying to record a macro that will autofilter a selection, select all
visible rows, and insert new rows. Here is the section of the code generated
by the Macro Recorder:

Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
Rows("2:2234").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Insert Shift:=xlDown

It always hangs up on the last line, with the following message:

Run-time error '1004':

Insert method of Range class failed

I can't figure out why it isn't working; any suggestions or help are greatly
appreciated. Thanks!

 

[Barb Reinhardt]

I think I'd put this in before the line with the error.

Debug.print selection.address

What does it tell you?

 

[jerryb123]

It doesn't seem to change anything that happens--I still get the same error
message. Does this generate an error report or something?

 

[Barb Reinhardt]

Type CTRL G to go to your IMMEDIATE window. It should show an address of
some kind.
--
HTH,
Barb Reinhardt

If this post was helpful to you, please click YES below.

 

[jerryb123]

It says Go to:
$A$2
$A$1

Type CTRL G to go to your IMMEDIATE window. It should show an address of
some kind.
--
HTH,
Barb Reinhardt

If this post was helpful to you, please click YES below.

 

[jerryb123]

Actuall, that window was in Excel. In Visual Basic, the Immediate window reads:

$2:$2,$17:$17,$19:$19,$30:$30,$58:$58,$67:$67,$80:$80,$82:$82,$84:$84,$101:$101,$184:$2234

These are the visible rows where I want to insert rows.