tabolar arası boşluk koymak

[MAYKMAYKMAYK]

arkadaşlar excelime wepten veri cekiyorum ama tablolar gelirken aralarında boşluksuz geliyor bazı tablolarımda 15 satır varken bazılarında 30 satır olduğu icin her tabloma 30 satır ayırmak istiyorum makro olarak ama beceremedim
Sub Macro1()
Dim straddress As String
straddress = Sheets("BazaDATE").Range("z2").Value
Sheets("Clasament campionate").Select
Sheets("Clasament campionate").Range("A1:AQ30000").Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & straddress _
, Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
'.WebSelectionType = xlAllTables
.WebSelectionType = xlSpecifiedTables
.WebTables = "8,,13"
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


Sheets("ANALİZ").Select
End Sub
macrom bu kardeşlerim

 

[turist]

BazaDATE sayfanızın Z2 hücresinde bulunan web sitesinin adresini bildirirseniz, istediğiniz çözümü bulmak dah kolay ve hızlı olabilir.

 

[MAYKMAYKMAYK]

BazaDATE sayfanızın Z2 hücresinde bulunan web sitesinin adresini bildirirseniz, istediğiniz çözümü bulmak dah kolay ve hızlı olabilir.

http://www.soccerstats.com/table.asp?league=italy&tid=f
adres bu kardeşlerim tablolar yanyana da olabilir