VBA Code issue

  • Thread starter Thread starter Guest
  • Start date Start date
G

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???
 
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
 
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.
 
Back
Top