VBA Code issue

[Guest]

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

 

[Gord Dibben]

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

 

[Tom Ogilvy]

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.