Anyone Can help me converting Excel VBA to Zoho Macro?

Anyone Can help me converting Excel VBA to Zoho Macro?

The Macro in general is pretty simple, It just opens a Workbook and copys some of data from that Workbook to the one that was initially open. But when I try to use it on Zoho I get this error "Unknown function: GetOpenFilename". If there is any other way to copy data fast from other workbooks I would like to know.

The code that I was talking about is the following one:

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