VBA合并当前excel的所有sheet

代码如下：

Option Explicit
Sub 把所有工作表内容合并到最后一个工作表中()
    Dim i, n, st As Worksheet
    For i =  Sheets.Count to 1 Step -1
        If i = Sheets.Count Then
            Set st = Sheets(i)
            If st.UsedRange.Cells.Count = 1 And st.Cells(1, 1) = "" Then
                n = 1 '下一次添加内容的行
            Else
                n = st.UsedRange.Rows.Count + 1
            End If
        Else
            Sheets(i).UsedRange.Copy st.Cells(n, 2)
            st.Cells(n, 1).resize(Sheets(i).UsedRange.Rows.Count,1)=sheets(i).name
            n = st.UsedRange.Rows.Count + 1            
        End If
    Next i
End Sub

操作中遇到问题，请百度云联系。