求大神解决一个困扰了很久的问题

如果第一行為空，就從22行開始。

程序本身看不出问题 建议单步执行 自己跟踪找原因

usedrange偏移是一个不稳定因素

usedrange不一定是从第1行开始的.

如果数据都是从21行开始. 试试将
.UsedRange.Offset(20, 0).Copy
Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
改成
n = .Range("b65536").End(xlUp).Row - 20 '获取有效数据的行数
Sheet1.Range("b65536").End(xlUp).Offset(1, -1).Resize(n, 10).Value = .Range("a21").Resize(n, 10).Value '不用复制粘贴,直接赋值效率更高.(假设数据有10列,若不是请修改这句的两个10)

直接 用find找出“店鋪”所在的行比較保險

用这个来代替usedrange,可以避免空行的干扰。
Function Get_not_empty_region_of_selection(rSel As Range) As Range
Dim rA As Range, rB As Range, rC As Range, rD As Range
Dim toprow As Long, bottommost As Long, leftmost As Integer, rightmost As Integer
If rSel Is Nothing Then Exit Function
If TypeName(rSel) <> "Range" Then Exit Function
If rSel.Cells.Count < 2 Then
Set Get_not_empty_region_of_selection = Selection
Exit Function
End If
On Error Resume Next
Set rA = rSel.SpecialCells(xlConstants)
Set rB = rSel.SpecialCells(xlFormulas)
rA.Select
rB.Select
Union(rA, rB).Select
On Error GoTo 0
Set rC = Selection
toprow = rC.Areas(1).Rows(1).Row
bottommost = rC.Areas(1).Rows(rC.Areas(1).Rows.Count).Row
leftmost = rC.Areas(1).Columns(1).Column
rightmost = rC.Areas(1).Columns(rC.Areas(1).Columns.Count).Column
For Each rD In rC.Areas
If rD.Rows(1).Row < toprow Then toprow = rD.Rows(1).Row
If rD.Rows(rD.Rows.Count).Row > bottommost Then bottommost = rD.Rows(rD.Rows.Count).Row
If rD.Columns(1).Column < leftmost Then leftmost = rD.Columns(1).Column
If rD.Columns(rD.Columns.Count).Column > rightmost Then rightmost = rD.Columns(rD.Columns.Count).Column
Next rD
Set Get_not_empty_region_of_selection = Range(Cells(toprow, leftmost), Cells(bottommost, rightmost))
End Function
Sub try()
Dim rA As Range
Set rA = Get_not_empty_region_of_selection(ActiveSheet.UsedRange)
End Sub