Sub deleteRow()
'
'
'

'
'Selection.End(xlDown).Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete Shift:=xlToLeft
Range("A2").Select
End Sub