Zwei Makros zusammenfügen

Sub Druckbereich()
Dim i As Integer
Dim z As Integer
Set wksQuelle = ActiveSheet
Range("B1").Select  'Startposition angeben
Selection.Name = "aErsteZeile"
For z = wksQuelle.Range("aErsteZeile").Row To 6000  'letzte Zeile anpassen
If Cells(z, 3).Value  0 Then
Cells(z, 3).Name = "aLetzteZeile"
End If
Next
Range(Cells(2, 2), Cells(Range("aLetzteZeile").Row, 42)).PrintPreview 'letzte Spalte
Selection.Name = "Druckbereich"
End Sub

Sub alles_drucken()
Dim sSheets As String
Dim Blatt As Object
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.Color = RGB(0, 255, 0) Or Blatt.Tab.Color = RGB(255, 255, 0) Or Blatt.Tab. _
Color = RGB(255, 0, 0) Then
sSheets = sSheets & "|" & Blatt.Name
End If
Next Blatt
sSheets = Mid(sSheets, 2)
Sheets(Split(sSheets, "|")).PrintPreview  '.Printout, wenn sofort drucken
End Sub