Copy a selected range based on cell criteria

[Ronny66]

Hi guys,

Tried several ways in order to fix my problem, but I can't seem to get it to work.

I have a worksheet in which I want to select a certain range of cells, I then need it to filter in the last row of the selection for the word "Incompleet".
Then it should copy the selected cells which are in front of the cell it filtered from and then past it into a different worksheet named "Incompleet" in the next empty row. This is what I have so far;

Sub CopySelectedRangeBasedOnCriteria()

    Dim rng As Range

    Set rng = Selection
   
    Application.ScreenUpdating = False
     
    Range("rng").AutoFilter Field:=9, Criteria1:="1"
    AutoFilter.Range.Copy
    
    Sheets("Incompleet").Select
    NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(NextRow, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
   
      
    AutoFilterMode = False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
   
End Sub

The column it must filter from will always be the 9th column, even though the selection can be made from anywhere within the worbook.

I have the idea that I'm very close, but there seem to be some problems with the copying after the autofilter has taken place.

Thanks in advanced for your help guys!!

Test.xlsm