How to extract HTML source code to excel VBA

Question

I\', trying to copy and paste the whole URL to excel worksheet. For now i have this

Sub audycje()

Dim strona As Object
Dim adres As String
Dim wb As Workbook
Dim