Sub Demo()
    Dim Reihe As Integer, Spalte As Integer
    Dim DelReihe As String
 
 
    Reihe = ActiveCell.Row
    Spalte = ActiveCell.Column
    DelReihe = CStr(Reihe) & ":" & CStr(Reihe)
 
    Rows(DelReihe).Select
    Selection.Delete Shift:=xlUp
 
    Cells(Reihe, Spalte).Select
End Sub

Gruß
Marcus