Problemer med Range("B14").End(xlDown).Offset(1, 0)

Hej

Bruger objRange til at slette 24 linier efter sidste
tomme celle i B14, ved aldrig hvor mange celler der står
noget i efter B14


Mit problem er at der til tider kun er noget i B14 og så
går det galt, der er ingen problemer hvis der står noget
i B15 også !

Hvordan skal jeg ændre koden så den også kan finde ud af det
hvis der kun står noget i B14 ?

Set objRange = Range("B14").End(xlDown).Offset(1, 0)
Range(objRange, objRange.Offset(24)).EntireRow.Delete
Set objRange = Nothing