Hello, let me answer my question in case someone else is looking for the same macro.
I havent been able to find a direct command, if anyone can solve it without using sendkeys please share your solution.

For the time being the following seems to work:

Sub GetExternalDataFromWeb()
SendKeys "%"
SendKeys "d"
SendKeys "d"
SendKeys "w"

End Sub

Kind regards,
Wries