If your worksheets is set up like a database with information beginning in
A1, try using

Range("A1").CurrentRegion


Thanks a lot, this works fine :-)

best regards