如何识别数据并将其转移到下一页VBA

Question

我目前有一个生成报告的代码，用户可以以“ MMMM'YY”格式确定报告的日期范围。当前看起来像这样，一个月内的子项目数可以在1到20之间。我试图确保一个月，并且子项目在页面之间不被分割，如下图所示，我的页面在行尾结束63

January '18
FYC
RYC
Overrides

February '18
...
...
... 'assuming page breaks here
...
...
...
... 'assuming this is 20 subs long

我尝试设置一个固定号码，如果“ MMMM'YY”介于第60至63行之间，请选择“ MMMM'YY”，它属于Range("B64").Paste

Dte = Row("B" & i)

If Dte >= 60 and Dte <= 63 Then
    ActiveCell.Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy

    Range("B64").Select
    Selection.Paste
Else
    'Do nothing
End If

有更好的方法吗？由于每个月最多可以有20个子值