Ok think I solved my issue after another hour of Google. I replaced old code with this:
And added x = x + 1 after End With.![]()
With ActiveSheet.QueryTables.Add(Connection:= _ "URL; " & URL, Destination:=ActiveWorkbook.Sheets("CASU").Range("E3").Offset(x, 0))
Bookmarks