过滤后检测范围是否为空

Question

因此，我正在编写一个代码，在按照某些条件过滤后，我想选择数据（不包括标题），如果选择不是空的，请复制并粘贴到另一张纸上。如果选择为空，则不执行任何操作。我的问题是，似乎我的代码始终认为选择内容即使为空也不为空，因此它总是复制数据。

Sub paste_filter()
    Sheets("RawData").Select
    Dim rng As Range
    With ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(Rows.Count - 1).Select
        Set rng = Selection
        If Application.WorksheetFunction.CountA(rng) > 0 Then
            rng.Copy
            Sheets("Report").Select
            Range("A5").Select
            Selection.End(xlDown).Select
            ActiveCell.Offset(1, 0).Range("A1").Select
            ActiveSheet.Paste
        End If
    End With
End Sub