Sub 合并表()
'把各工作表合并到"汇总"工作表中
Rows("2:65536").Clear '删除原有记录
Dim sht As Worksheet, xrow As Integer, rng As Range
For Each sht In Worksheets '遍历工作簿中所有工作表
If sht.Name <> ActiveSheet.Name Then
Set rng = Range("a65536").End(xlUp).Offset(1, 0) '获得A列第一空单元格
xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 '获得分表中的记录条数
sht.Range("a2").Resize(xrow, 7).Copy rng '粘贴记录到汇总表
End If
Next
End Sub

Sub 删空白行()
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count ‘获取已有行数
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

如果单独运行“删除空白行”的过程没问题！如果运行完“合并表”的过程，在运行“删除空白行”的过程时，就出现死循环！

这要怎么解决