Как сохранить нужные данные с первого листа на второй лист?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 28.11.2013
'
 
    With Sheets("Данные")
        .Range("C1").AutoFilter Field:=3, Criteria1:=">=50", Operator:=1
        .Range("A1").CurrentRegion.Copy Sheets("Отчет").Range("A10")
        .UsedRange.AutoFilter
    End With
 
End Sub

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 28.11.2013
'
 
    With Sheets("Данные")
        .Range("C1").AutoFilter Field:=3, Criteria1:=">=50", Operator:=1
        .Range("A1").CurrentRegion.Resize(, 3).Copy Sheets("Отчет").Range("A10")
        .UsedRange.AutoFilter
    End With
 
End Sub

Sub Macro2()
    Dim c As Range, x&
    
    With Sheets("Данные")
        .Range("C1").AutoFilter Field:=3, Criteria1:=">=50", Operator:=1
        With .Range("A1").CurrentRegion.Resize(, 3)
            ReDim a(1 To .Rows.Count, 1 To 1)
            For Each c In .Offset(1).Columns(1).Cells
                If Not Intersect(c, .SpecialCells(xlCellTypeVisible)) Is Nothing Then
                    x = x + 1
                    a(x, 1) = c.Offset(, 1) & ", " & c & ", " & c.Offset(, 2) & "%"
                End If
            Next
            Sheets("Отчет").Range("A10").Resize(x, 1) = a
        End With
        .UsedRange.AutoFilter
    End With
 
End Sub