Диапазон варьируется по строкам с числами

Question

Возможно ли создать фрагмент кода, где диапазон задан, где есть числа? Я попытаюсь объяснить, что я имею в виду.

Обычно мой диапазон составляет от A1 до W14, который копируется с другого листа. Если строка 7-14 пуста, я хотел бы создать вместо нее диапазон A1: W6.

Sub FindTomogindsætdata()
Workbooks("bæreevneberegning_pælefundering_optimeret").Worksheets("Rammeliste").Select
Worksheets("Rammeliste").Range("O13:W25").Copy
Worksheets("Bæreevneberegning").Select
Range("B10000").Select
Selection.End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteValues
Workbooks("bæreevneberegning_pælefundering_optimeret").Worksheets("Rammeliste").Select
Worksheets("Rammeliste").Range("AB13:AB25").Copy
Worksheets("Bæreevneberegning").Select
Range("O10000").Select
Selection.End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteValues
End Sub

Моя проблема возникает, когда я вставляю свой лист Range i "Bæreevneberegning" во второй раз, это займет «пустые» клетки. Поэтому, если строка 7-14 пуста, она оставит пробел.

Надеюсь, кто-то может помочь!