Ok think I solved my issue after another hour of Google. I replaced old code with this:

With ActiveSheet.QueryTables.Add(Connection:= _
      "URL; " & URL, Destination:=ActiveWorkbook.Sheets("CASU").Range("E3").Offset(x, 0))
And added x = x + 1 after End With.