How to Delete Selected Cells, Rows, Columns In a Active WorkSheet using VBA Macro

VBA Macro To Delete Selected Cells, Rows, Columns In a Active WorkSheet 
Sub Delete_Cells( )

Selection.Delete  'Deletes Selected Cells'

End Sub

Sub Delete_Row( )

rows(1).select

Selection.EntireRow.Delete  'Deletes Entire Row'

End Sub

Sub Delete_Column( )

columns(2).select

Selection.EntireColumn.Delete  'Deletes Entire Column'

End Sub

Thanks, Tamatam