Trying to insert rows in a Macro

J

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!
 
B

Barb Reinhardt

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

Debug.print selection.address

What does it tell you?
 
J

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?
 
B

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.
 
J

jerryb123

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

Barb Reinhardt said:
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.
 
J

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top