モノマネvba虎の穴ルール１：vbaでは最大行を求める前にフィルターをクリアしておけ！

　モノマネvba虎の穴ルール１：vbaでは最大行を求める前にフィルターをクリアしておけ。

maxRow = ActiveWorkbook.Worksheets(1).Cells(Rows.Count,1).End(xlUp).Row
if Worksheets(1).FilterMode = True then WorkSheets(1).showAllData

ではなく、これだ

if Worksheets(1).FilterMode = True then WorkSheets(1).showAllData
maxRow = ActiveWorkbook.Worksheets(1).Cells(Rows.Count,1).End(xlUp).Row

やれやれだ。