Office: Makro, kopiert aus zwei Bereichen - wenn ein Bereich "leer" ist, bricht das Makro ab

Hallo,

ich habe mit etwas Hilfe das untenstehende Makro erarbeitet.

Es werden zwei Bereiche auch Befüllung überprüft und die Eingaben anschließend in separate Tabellen eingefügt.

Das Makro funktioniert auch soweit. Ich habe nun beim Testen bemerkt, dass sobald ein Wertebereich z.B. B30:37 keine zu kopierenden Zeilen enthält mir das Makro auf die Bretter geht (keine Zeilen vorhanden). Kann ich hier noch ein Funktion einbauen, dass sobald ein Bereich leer ist, dass Makro erst einmal nichts tut / leere Zeilen einfügt und die nächsten Schritten abhandelt.

Also wenn im oberen Bereich (B15:L22) nichts steht der Bereich (B30:L37) nichtsdestotrotz überprüft wird und umgekehrt?



Sub Test()
'
' Test Makro
'
'
Dim lngLetzte As Long
lngLetzte = 14 + Range("F15:F22").SpecialCells(xlCellTypeConstants).Count
Workbooks.Open Filename:= _
"C:\Users\Joscha\Documents\_Studium\Index-Formel.xlsx", UpdateLinks:=3
With Worksheets("Marine")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Range("A" & lngLetzte).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save
ActiveWindow.Close

Dim lngLetzte1 As Long
lngLetzte1 = 29 + Range("C30:C37").SpecialCells(xlCellTypeConstants).Count
Range("B30:L" & lngLetzte1).Copy


Workbooks.Open Filename:= _
"C:\Users\Joscha\Documents\_Studium\Index-Formel.xlsx", UpdateLinks:=3
With Worksheets("Storage")
lngLetzte1 = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Range("A" & lngLetzte1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save
ActiveWindow.Close


End With
End With
End Sub


Danke für eure Hilfe!

Grüße

Joscha