根据单元格值将行复制到工作表底部，并按升序排序

Sub CopyAndSortRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim cellValue As Variant
    
    ' 设置源工作表，此处假设源工作表名为"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 设置源数据范围，此处假设要处理的数据从第2行开始，第1列是要判断的单元格值
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set rng = ws.Range("A2:A" & lastRow)
    
    ' 循环处理每个单元格的值
    For Each cell In rng
        cellValue = cell.Value
        ' 判断单元格是否需要复制
        If cellValue = "需要复制的值" Then
            ' 复制整行数据到工作表底部
            cell.EntireRow.Copy ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1)
        End If
    Next cell
    
    ' 按照第1列的值进行升序排序
    ws.Sort.SortFields.Clear
    ws.Sort.SortFields.Add Key:=Range("A2:A" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws.Sort
        .SetRange Range("A1").CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 清除剪贴板中的数据
    Application.CutCopyMode = False
    
    ' 提示处理完成
    MsgBox "处理完成！"
End Sub