mit Select ist Makro langsam

Hallo Forum,
wie kann ich diesen Abschnitt ersetzen:

          Rows(iRowOrig1).Select
Selection.Cut
Rows(iRowOrig1 + iRowRunter1).Select
Selection.Insert Shift:=xlDown

Private Sub t09_sortierte_alle_gleiche_passende_f_untereinander()
'BRAUCHT SEHR SEHR LANGE !!!!!!!!!!!
Sheets("DB_Moved").Select
'1. sortiere nach Datum
'2. sortiere nach Uhrzeit
Dim iRowOrig1 As Integer, iRowRunter1 As Integer
For iRowOrig1 = 2 To 80 'Zeile 2 bis 80   **2 To 55
For iRowRunter1 = 1 To 80 'Spalte 1 bis 20   **1 To 50
If Sheets("DB_Moved").Cells(iRowOrig1, 2).Value = Sheets("DB_Moved").Cells(iRowOrig1 +  _
iRowRunter1, 2).Value Then
          Rows(iRowOrig1).Select
Selection.Cut
Rows(iRowOrig1 + iRowRunter1).Select
Selection.Insert Shift:=xlDown
End If
Next iRowRunter1
Next iRowOrig1
Range("a1").Select
End Sub