Sub UM()
'On Error GoTo Erro
Dim EnderecoPlan As String
Dim este As Workbook, outro As Workbook
Application.DisplayAlerts = False
EnderecoPlan = Application.GetOpenFilename(FileFilter:="file, *.xls*")
If EnderecoPlan <> Empty And EnderecoPlan <> "Falso" Then
    Set Folha = Application.Workbooks.Open(EnderecoPlan)
    Else
    Exit Sub
End If
Set este = ThisWorkbook
Set outro = ActiveWorkbook
outro.Sheets(2).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A1").PasteSpecial
outro.Sheets(3).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A36").PasteSpecial
outro.Sheets(4).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A71").PasteSpecial
outro.Sheets(5).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A106").PasteSpecial
outro.Sheets(6).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A141").PasteSpecial
outro.Sheets(7).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A176").PasteSpecial
outro.Sheets(8).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A211").PasteSpecial
outro.Sheets(9).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A246").PasteSpecial
outro.Sheets(10).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A281").PasteSpecial
outro.Sheets(11).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A316").PasteSpecial
outro.Sheets(12).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A351").PasteSpecial
outro.Sheets(13).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A386").PasteSpecial
outro.Sheets(14).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A421").PasteSpecial
outro.Sheets(15).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A456").PasteSpecial
outro.Sheets(16).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A491").PasteSpecial
outro.Sheets(17).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A526").PasteSpecial
outro.Sheets(18).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A561").PasteSpecial
outro.Sheets(19).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A596").PasteSpecial
outro.Sheets(20).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A631").PasteSpecial
outro.Sheets(21).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A666").PasteSpecial
outro.Sheets(22).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A701").PasteSpecial
outro.Sheets(23).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A736").PasteSpecial
outro.Sheets(24).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A771").PasteSpecial
outro.Sheets(25).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A806").PasteSpecial
outro.Sheets(26).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A841").PasteSpecial
outro.Sheets(27).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A876").PasteSpecial
outro.Sheets(28).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A911").PasteSpecial
outro.Sheets(29).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A946").PasteSpecial
outro.Sheets(30).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A981").PasteSpecial
outro.Sheets(31).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A1016").PasteSpecial
outro.Sheets(32).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A1051").PasteSpecial
outro.Sheets(2).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K1").PasteSpecial
outro.Sheets(3).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K36").PasteSpecial
outro.Sheets(4).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K71").PasteSpecial
outro.Sheets(5).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K106").PasteSpecial
outro.Sheets(6).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K141").PasteSpecial
outro.Sheets(7).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K176").PasteSpecial
outro.Sheets(8).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K211").PasteSpecial
outro.Sheets(9).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K246").PasteSpecial
outro.Sheets(10).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K281").PasteSpecial
outro.Sheets(11).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K316").PasteSpecial
outro.Sheets(12).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K351").PasteSpecial
outro.Sheets(13).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K386").PasteSpecial
outro.Sheets(14).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K421").PasteSpecial
outro.Sheets(15).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K456").PasteSpecial
outro.Sheets(16).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K491").PasteSpecial
outro.Sheets(17).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K526").PasteSpecial
outro.Sheets(18).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K561").PasteSpecial
outro.Sheets(19).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K596").PasteSpecial
outro.Sheets(20).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K631").PasteSpecial
outro.Sheets(21).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K666").PasteSpecial
outro.Sheets(22).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K701").PasteSpecial
outro.Sheets(23).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K736").PasteSpecial
outro.Sheets(24).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K771").PasteSpecial
outro.Sheets(25).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K806").PasteSpecial
outro.Sheets(26).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K841").PasteSpecial
outro.Sheets(27).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K876").PasteSpecial
outro.Sheets(28).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K911").PasteSpecial
outro.Sheets(29).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K946").PasteSpecial
outro.Sheets(30).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K981").PasteSpecial
outro.Sheets(31).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K1016").PasteSpecial
outro.Sheets(32).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K1051").PasteSpecial
outro.Close False
End Sub