Macropod,
That works perfectly. Thank you for all your help.
I was trying to understand what the code was doing so I could modify it but i don't understand how it is setting the focus to the last row.
Is that what this is doing?
Code:
Rng.End = Rng.End - 1
Is it possible to modify the code within the .tables loop to check the contents of the first row and keep it if it equals a string? I thought it would work as long as i add the code before the....
Code:
Rng.Tables(1).Delete
I assume I can using something like:
Code:
if Tbl.Rows(1).??? = 'Listings' then
??.copy
??.paste
end if
But i can't find the correct commands.
Any ideas?
Thanks again.