Slet Row ud fra aktiv cell

Den vil ikke slette rækken som active cell er på ?
den sletter række 2

Dim C As Range

Range("b2", Range("b2").End(xlDown)).Select
For Each C In Selection
  If IsNumeric(Left(C, 1)) Then
  C.Copy C.Offset(1, -1)
    Rows(ActiveCell.Row).Select  ' Slet rækken som active cell står på
    Selection.Delete
      Range("b2", Range("b2").End(xlDown)).Select

  Else
    C.Offset(-1, -1).Copy C.Offset(0, -1)
    End If
    Next
End Sub