Копировать только видимые ячейки

Я пытаюсь скопировать видимые ячейки после использования моего фильтра на другой лист в той же книге, но я не уверен в этом коде. Как это выглядит сейчас:

Sub Button1_Click() Dim i As Integer Dim VisRan As Range VisRan = Sheets(1).Range("a39:bm29684").SpecialCells(xlCellTypeVisible) Visran.Copy Sheets(2).Cells(1, 1).Select Selection.Paste 

Но это не сработает. В чем проблема?
Thx заранее

    Попробуй это:

     Sub Button1_Click() Dim i As Integer Dim VisRan As Range On Error Resume Next Set VisRan = Sheets(1).Range("a39:bm29684").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If VisRan Is Nothing Then MsgBox "There is no visible rows" Exit Sub End If VisRan.Copy Destination:=Sheets(2).Cells(1, 1) End Sub 
    Давайте будем гением компьютера.