Advanced Filter Deleting cells below CopyToRange

[JohnnyPicnic]

I have an Advanced Filter grabbing data from a table on another sheet.
I can't seem to place the new filtered data above previously formatted cells. It deletes anything below it. Or complains if there is a merged cell below.
The macro to run the advance filter is"

Sub Assets()
'
' Assets Macro
'

'
    Sheets("Assets").Range("Assets[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("H5:H6"), CopyToRange:=Range("A16:F16"), Unique:= _
        False
End Sub

 

[Fluff]

That will change the format of the cells to match the original table, but it should not change the cell format for any rows that are below the copied data.

 

[JohnnyPicnic]

Is there a way to insert the copied data without it formatting the cells below? The original table has over 400 rows, the new copied data is variable but usually 4-5 rows.

 

[Fluff]

It shouldn't format cells below the copied data, only those cells where the data has been copied to.

 

[JohnnyPicnic]

I'm must be missing something. Here are some screen shots of before and after running the VBA macro.

 

[Fluff]

That is not cell formatting, that is data, which will get removed.

 

[JohnnyPicnic]

There shouldn't be any. I seem to have a temporary fix by setting the CopyToRange:=Range("A16:F25") instead of CopyToRange:=Range("A16:F16")

 

[Fluff]

You obviously saw my post before I edited it. Have another look.

 

[JohnnyPicnic]

So when I do have more copied data it gives me a warning. When I only have one or two rows it still deletes everything below without warning.

 

[Fluff]

When I only have one or two rows it still deletes everything below without warning.

Yup, that's how it works.