Copy Paste til næste blanke række

Jeg benytter denne med held ( for det meste ), men den virker ikke hvis jeg har filter på mine data ???

Sub CreateNewUnit()
Dim NextRow As Long
   
    Sheets("Data").Select
   
    Sheets("New Unit").Visible = True
        Sheets("New Unit").Select
    Range("A1:R6").Select
   
    Selection.Copy
   
    NextRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("Data").Range("A" & NextRow).PasteSpecial Paste:=xlPasteAll
   
    Sheets("New Unit").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Data").Select
   
    Range("A1").Select

End Sub

Lukker