Macro to copy cell contents (a website) -> paste in exctract external data url address box

Im trying to use a macro to copy a website in a cell and then open "get external data from web", paste it in the url box, and then import the data.

It works while I'm recording it but when I change the website, it copies and pastes the old one instead. What am I doing wrong?

Thanks!!

Heres the Macro Code

Range("G26").Select ***Its here where even when G26 changes it doesnt change in the clipboard***
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.linkedin.com/company/facebook", Destination:=Range("$A$1"))
.Name = "facebook"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

daffodil11 thanks for that, the one thing I can't figure out though is how to identify the webtables on the linkedin website. Any suggestions?

Do it manually using Macro recorder for example …

Marc L: "It works while I'm recording ..." I did use the macro recorder. Any suggestions on how to get it to record the part where I copy the cell?

Use Macro recorder for each website and see what arguments change …