按连接的单元格按字母顺序对列进行排序

Question

我的目标是先在工作表中隐藏一些列（A:F），然后按字母顺序对其余列进行排序（AT）。此宏应该适用于我的工作簿中的每个工作表。这是我的代码：

Option Explicit
Sub HideSort()
Dim ws As Worksheet
' loop through all worksheets
For Each ws In ActiveWorkbook.Worksheets
' hide columns
ws.Columns("A:F").Hidden = True
' sort alphabetically
Application.ScreenUpdating = False
Dim clmn As String
Dim area As String
area = "A4:FJ5000"
clmn = "AT"
ws.Range(area).Sort _
Key1:=ws.Range(clmn & "1"), Order1:=xlDescending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
Application.ScreenUpdating = True
Next ws
End Sub

隐藏部分非常完美。但是与排序部分一起运行我得到运行时错误'1004'：所有连接的单元格必须具有相同的大小。

是的我已在工作表中连接了单元格，但只有前两行中的标题。这就是为什么我只想从第4行向下排序A4:FJ5000。

其他连接的单元格不存在，因为我已经检查过。那我的错在哪里？谢谢！