1. Üst şeritten "Geliştirici" sekmesine tıklayın ve ardından menüden "Visual Basic" seçeneğini seçin 3.
2. "Microsoft Visual Basic for Applications" penceresinde üst menü çubuğundan "Ekle" tuşuna basın ve "Modül" seçeneğini seçin 3.
3. Açılan pencereye aşağıdaki kodu yapıştırın 3:

Sub Move_Row_To_End()
    Dim xR As Range
    Dim xT As String
    Dim xC As Range
    Dim xER As Long
    Dim p As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
        xT = ActiveWindow.RangeSelection.AddressLocal
    Else
        xT = ActiveSheet.UsedRange.AddressLocal
    End If
    lOne:
    Set xR = Application.InputBox("Select the Input range:", "ExcelDemy", xT, , , , , 8)
    If xR Is Nothing Then Exit Sub
    If xR.Columns.Count > 1 Or xR.Areas.Count > 1 Then
        MsgBox "Selected Multiple Columns", vbInformation, "Exceldemy"
        GoTo lOne
    End If
    xER = xR.Rows.Count + xR.Row
    Application.ScreenUpdating = False
    For p = xR.Rows.Count To 1 Step -1
        If xR.Cells(p) > 4000000 Then
            xR.Cells(p).EntireRow.Cut
            Rows(xER).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub
Kopyala

4. Kodu çalıştırmak için üst menüye gidin, "Çalıştır" seçeneğine basın ve "Alt/Kullanıcı Formunu Çalıştır" seçeneğini seçin 3. Ayrıca, kodu çalıştırmak için F5 tuşuna basılabilir 3.

1. Taşınacak satırlar seçilir 4.
2. "