VBA EXCEL 不要行削除と改ページ設定

‘不要行削除 　と　改ページ

xls.ScreenUpdating = False
xls.Calculation = xlCalculationManual
xls.DisplayAlerts = False

With wksSource

.Activate

If k < 37 Then
.Range(.Cells(34, 1), .Cells(167, 50)).Delete xlShiftUp

ElseIf k >= 37 And k < 41 Then
.Range(.Cells(41, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual

ElseIf k >= 41 And k < 70 Then
.Range(.Cells(74, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual

ElseIf k >= 70 And k < 74 Then
.Range(.Cells(74, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual
.Range(“BE74”).PageBreak = xlPageBreakManual

ElseIf k >= 74 And k < 103 Then
.Range(.Cells(102, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual
.Range(“BE74”).PageBreak = xlPageBreakManual
.Range(“BE107”).PageBreak = xlPageBreakManual

ElseIf k >= 103 And k < 107 Then
.Range(.Cells(107, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual
.Range(“BE74”).PageBreak = xlPageBreakManual
.Range(“BE107”).PageBreak = xlPageBreakManual

ElseIf k >= 107 And k < 136 Then
.Range(.Cells(135, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual
.Range(“BE74”).PageBreak = xlPageBreakManual
.Range(“BE107”).PageBreak = xlPageBreakManual
.Range(“BE140”).PageBreak = xlPageBreakManual

ElseIf k >= 136 And k < 140 Then
.Range(.Cells(140, 1), .Cells(167, 50)).Delete xlShiftUp
.Range(“BE41”).PageBreak = xlPageBreakManual
.Range(“BE74”).PageBreak = xlPageBreakManual
.Range(“BE107”).PageBreak = xlPageBreakManual
.Range(“BE140”).PageBreak = xlPageBreakManual

End If

End With

xls.DisplayAlerts = True
xls.ScreenUpdating = True
xls.Calculation = xlCalculationAutomatic