Copying Visible Cells from Autofilter with/out headings

Hi

This line of code is copying from row 3 meaning without heading and first first row of information:

.SpecialCells(xlCellTypeVisible).Offset(1).Copy

This line of code is copying visible cells with heading:

.SpecialCells(xlCellTypeVisible).Copy


I need the macro to copy the filtered cells without the heading but from the first row. For some reason the offset(1) is skipping the first row of data.

Please help out here if you can.

Thanks

Hi Eijaz,

Without seeing the rest of your code and testing it, this is just a guess! Try Offset(0)! Offset(1) is taking you to the next row.

I hope this helps, please let me know!

Regards,

David

When you reply please make it clear WHO you are responding to by mentioning their name.

If this has been of assistance, please advise. A little thanks goes a long way.
- Please click on the *Add Reputation button at the bottom of helpful responses.

Please mark your thread as SOLVED:
- Click Thread Tools above your first post, select "Mark your thread as Solved".

@ David

It still doesnt work, here is my code, 0 offset adds the headings and 1 offset takes out the first line of information:



Dim wbCopy As Workbook
Dim wsCopy As Worksheet
Dim wbPaste As Workbook
Dim wsPaste As Worksheet

Set wbCopy = Workbooks.Open("C:\Documents and Settings\abek276\Desktop\Book27.xlsx")
Set wsCopy = wbCopy.ActiveSheet


Options = InputBox(Prompt:="Scheme Code", Title:="Options")
Options1 = InputBox(Prompt:="Scheme Code", Title:="Options")
Options2 = InputBox(Prompt:="Scheme Code", Title:="Options")

MyName = InputBox("Scheme Name")

Set wbPaste = Workbooks.Add
Set wsPaste = wbPaste.Sheets(1)

With wsCopy
.AutoFilterMode = False
With .Range("A2").CurrentRegion
.AutoFilter Field:=1, Criteria1:=Options
.SpecialCells(xlCellTypeVisible).Copy
wsPaste.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


With wsCopy
.AutoFilterMode = False
With .Range("A2").CurrentRegion
.AutoFilter Field:=1, Criteria1:=Options1
.SpecialCells(xlCellTypeVisible).Offset(1).Copy
wsPaste.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



With wsCopy
.AutoFilterMode = False
With .Range("A2").CurrentRegion
.AutoFilter Field:=1, Criteria1:=Options2
.SpecialCells(xlCellTypeVisible).Offset(1).Copy
wsPaste.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End With

Try:

.Offset(1).SpecialCells(xlCellTypeVisible).Copy

Thanks John that worked well.

You're welcome. Glad to help out and thanks for the feedback.