I'm trying to collect data on news articles for a research project. To do that I am connecting an excel document to a bunch of rss feeds and having it append the data every two minutes after which I remove all duplicates from the xml table, just leaving me with the original articles and any new ones since the code last ran. I figured out the VBA necessary for this and it is working for the most part.

The problem is that some of the RSS sources aren't mapping correctly. Instead of lining up all of the data like this:
Screenshot (159).png

Excel is giving each individual piece of data its own line and seperating it from the data it corresponds with. This is an example of one of those sources:
Screenshot (160).png

If I deselect automatically merge when mapping, it formats correctly but then each column is its own xml table and my duplication removal solution no longer works. This is the code for that:
Option Explicit
Public nSaveWB As Date
Public rSelection As Range
Public Const cRunWhat = "SaveWB"
Public Sub SetSaveWBTimer()
nSaveWB = Now + TimeSerial(0, 2, 0) ' 2 Minute
Application.OnTime EarliestTime:=nSaveWB, Procedure:=cRunWhat, _
Schedule:=True
End Sub
Public Sub SaveWB()
ActiveWorkbook.RefreshAll
RemoveDP
SetSaveWBTimer
End Sub
Public Sub RemoveDP()
Set rSelection = Sheet1.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1)
Set rSelection = Sheet2.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=(1, 2, 3)
Set rSelection = Sheet3.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2)
Set rSelection = Sheet4.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2, 3)
Set rSelection = Sheet6.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2, 3)
Set rSelection = Sheet5.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2, 3)
Set rSelection = Sheet7.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2, 3)
Set rSelection = Sheet8.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2, 3)
Set rSelection = Sheet9.Range("A1").CurrentRegion
rSelection.RemoveDuplicates Columns:=Array(1, 2, 3)
End Sub



I need to fix this because the blank spaces that excel is adding make me delete duplicate titles without their corresponding times and it ends up creating data tables like this, which would require an extra layer of data cleaning and work on my end before it would be usable:
Screenshot (161).png

I've been unable to figure out a solution to this problem, and some help would be appreciated.