fixing error code copy filtered data from sheet to another

[abdelfattah]

hello
i need help fixing this code from the firs time it works very well but when i run again filtered data in sheet "data" is gone and gives me runtime error 1004 no cells were found

Sub CopyFiltered()
    Dim src As Worksheet
    Dim tgt As Worksheet
    Dim filterRange As Range
    Dim copyRange As Range
    Dim lastRow As Long

    Set src = ThisWorkbook.Sheets("DATA")
    Set tgt = ThisWorkbook.Sheets("Sheet2")
    src.AutoFilterMode = False
    lastRow = src.Range("A" & src.Rows.Count).End(xlUp).Row
    Set filterRange = src.Range("A1:F" & lastRow)
    Set copyRange = src.Range("B2:F" & lastRow)
    filterRange.AutoFilter field:=2, Criteria1:="=" & Range("F2").Value
    copyRange.SpecialCells(xlCellTypeVisible).Copy tgt.Range("B6")

End Sub

thanks advance

 

[Fluff]

That problem is because you have an extra column in the output sheet that is not in the data sheet.

 

[abdelfattah]

i changed to this

src.AutoFilter.Range.Offset(1, 1).Resize(, 5).Copy tgt.Range("B6")

it success thanks Fluff for your code and your time

 

[Fluff]

You're welcome & thanks for the feedback.

 

[abdelfattah]

hi, fluff sorry if i ask again about this thread i no know if i have to issue a new thread or you can answer me i'd just like amend the code i want when the autofilter and copy data from sheet to another and when i search a new data should copy a new data under the old data and if i repeat the data already existed the overwrite the old data

thanks advance

 

[Fluff]

Please start a new thread for this question, thanks.