Giúp xem code vba (1 người xem)

[ninhhv90]

Đoạn record vba của mình thực hiện tạo query table.
Chỗ Source = Web.Page(Web.Contents(""http://www.cophieu68.vn/historyprice.php?id=aaa""))," ....
có link data được lấy ở ô Sheet!B1. Giờ làm thế nào mình đưa giá trị ô B1 để nó hiểu, Thank cả nhà đã xem tin.

- - - - -
Sheets("data").Select
Range("B1").Select
Selection.Copy
Sheets("dulieu").Select
ActiveWorkbook.Queries.Add Name:="ls", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Web.Page(Web.Contents(""http://www.cophieu68.vn/historyprice.php?id=aaa""))," & Chr(13) & "" & Chr(10) & " Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & " #""Removed Columns"" = Table.RemoveColumns(Data0,{""Giá Tham Chi?u"", ""+/- (*)"", ""% (*)"", ""M? C?a (*)"", ""Cao Nh?t (*)"", ""Th?p Nh?t (*)"", ""Giao D?ch Th?a Thu?n"", ""Nu?c Ngoài Mua"", ""Nu?c Ngoài Bán"", ""Giá Tr?(tri?u d?ng)""})" & _
"" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Removed Columns"""
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=ls", _
Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [ls]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = False
.ListObject.DisplayName = "ls"
.Refresh BackgroundQuery:=False
End With
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
ActiveWindow.SmallScroll Down:=-6
ActiveWorkbook.Save
Windows("CAP NHAT.xlsm").Activate
End Sub