Ok, either i'm loosing it or i'm doing something wrong.

Hi everyone.

So here's my problem, i have a code where it imports a .csv file into my worksheet, it all works fine because i tell it to use cell A2 as the destination:

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\program files\transmitt-xls\combined.csv", _
Destination:=Range(A2))

But, if i do the import again, it will move everything in there currently to the right and will still use the A2 Cell, so now i'm thinking how to make it check for the last empty cell and use that as the destination.
I have this:

Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

but how do i name that last empty cell and then use that in the destination? or what am i doing wrong????
Thanks,
Viktor.