EXCEL中将选定的行复制到另外一张表

Sub CopyRows()
    Dim LastRow As Long
    Dim r As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count
    LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
    Application.ScreenUpdating = False
    n = 1
    m = 1
    o = 1
    For r = LastRow To 1 Step -1

        If (Cells(r, 4) > 828000000 And Cells(r, 4) < 829000000) Then
        Sheets("sheet1").Select
        Rows(r).Select
        Selection.Copy
 Sheets("sheet10").Select
 '选定要复制到的表中的行
        Sheets("sheet10").Rows(n).Select
        ActiveSheet.Paste
        n = n + 1
        End If
       
       
    Next r
    '输出复制的行数
    MsgBox n
   
End Sub