Excel - Macro para pegar datos en hoja2

Sub Macro1()

    Sheets("informe").Select

    Range("A1").Select

    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    With Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlTop

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$AO$5754").AutoFilter Field:=1, Criteria1:="TOTAL"

    Selection.End(xlDown).Select

    ActiveCell.Offset(0, 1).Select

    Range(Selection, Selection.End(xlUp)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Selection.Copy

    Sheets("datos").Select

    Range("A4").Select

    ActiveSheet.Paste

    Rows("4:4").Select

    Application.CutCopyMode = False

    Selection.Delete Shift:=xlUp

End Sub