VBA Code issue
 

Here is my code:

Sheets("Stepdown2").Columns("P:S").Select
Selection.ClearContents
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<"

Set rang = Sheets("Stepdown2").AutoFilter.Range
rang.Copy
Sheets("CEU Database").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

I get an error at the last line. When I try it manually it says the paste
area and the copy area are not the same size???

VBA Code issue
 

Might be because you have selected entire columns and are trying to insert
into a range that is 3 rows short of entire columns.

Gord Dibben Excel MVP

On Sat, 4 Dec 2004 08:01:03 -0800, "scrabtree23"
wrote:

Here is my code:

Sheets("Stepdown2").Columns("P:S").Select
Selection.ClearContents
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<"

Set rang = Sheets("Stepdown2").AutoFilter.Range
rang.Copy
Sheets("CEU Database").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

I get an error at the last line. When I try it manually it says the paste
area and the copy area are not the same size???

VBA Code issue
 

With Sheets("Stepdown2")
.Columns("P:S").ClearContents
.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="<"
Set rang = .AutoFilter.Range
End With
set rng1 = rang.columns(1).specialcells(xlvisible)
Sheets("CEU Database").Rows("4:4") _
.Resize(rng1.count).Insert Shift:=xlDown
rang.Copy Destination:=Sheetes("CEU Database").Range("A4")


Untested, but might work.

--
Regards,
Tom Ogilvy


"scrabtree23" wrote in message
...
Here is my code:

Sheets("Stepdown2").Columns("P:S").Select
Selection.ClearContents
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<"

Set rang = Sheets("Stepdown2").AutoFilter.Range
rang.Copy
Sheets("CEU Database").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

I get an error at the last line. When I try it manually it says the paste
area and the copy area are not the same size???