Looping thru URL

[Sanbiz94]

Hello, I have create a marco that will go on a site and extract data. thru a web query.
I would like it to keep looping through the column that has all the urls. and stop at the last row containing a url...

SO....
Column K has the URLS starting at K2 these urls come in because a rss feed
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.practicelink.com/jobs/297594/RSS/Physician/Cardiology/OH/Genesis%20HealthCare%20System" _
, Destination:=Range("$O$2"))
.Name = "Genesis%20HealthCare%20System"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "6"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
when the data is brought back into excel it transposes accross colums O-Y

Please help me solve the mind twister !!!!