Druckmakro abändern

Public Sub Packzettel_drucken_Pack1()
Dim i As Long, ws As Worksheet, raWeg As Range
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Packzettela*" Then
With ws
For i = 5 To 103 Step 7
If WorksheetFunction.Sum(.Cells(4, i), .Cells(20, i)) > 0 Then
If raWeg Is Nothing Then
Set raWeg = .Cells(4, i).Offset(-3, -4).Resize(28, 7)
Else
Set raWeg = Union(raWeg, .Cells(4, i).Offset(-3, -4).Resize(28, 7))
End If
End If
Next i
If Not raWeg Is Nothing Then
Union(raWeg, .Range("EY1:FE28")).PrintPreview
End If
End With
End If
Set raWeg = Nothing
Next ws
Set raWeg = Nothing
End Sub