Delete Active row using VBA

Home/VBA/Delete Active row using VBA

Excel VBA code to Delete Active row example will help us to delete the row in excel worksheet which is active. We can use Delete method of Rows to delete the Active row. In this example we will see how to delete the Active row in excel worksheet using VBA. Excel VBA Macro code for deleting Active row macro should work for all the version of Microsoft Excel 2003, Excel 2007, Excel 2010, and Excel 2013.

PREMIUM TEMPLATES LIMITED TIME OFFER

ON SALE80% OFF

50+ Project Management Templates Pack
Excel PowerPoint Word

Advanced Project Plan & Portfolio Template
Excel Template

Business Presentations Templates Pack
PowerPoint Slides

20+ Excel Project Management Pack
Excel Templates

20+ PowerPoint Project Management Pack
PowerPoint Templates

10+ MS Word Project Management Pack
Word Templates


VBA code to Delete Active row


Here is the Example VBA syntax and Example VBA Macro code to Delete Active row from excel worksheets. This will help you to know how to delete Active row from Excel workbook using VBA.

VBA Delete Active row: Syntax


Following is the VBA Syntax and sample VBA macro command to Delete Active row from worksheet using VBA. We are using the Delete method of the Rows object of worksheet.


Rows(ActiveCell.Row).EntireRow.Delete

Here ActiveCell.Row return the row number of the active cell. And EntireRow.Delete method will delete the rows from the Excel spreadsheet.

Delete Active row using VBA: Examples


The following Excel VBA macro code is to delete Active row from the worksheet. This VBA macro will delete the row which currently active.

Sub sbVBS_To_Delete_Active_Rows()
Rows(ActiveCell.Row).Delete
End Sub 

Instructions to run the VBA Macro code to delete Active row


Please follow the below steps to execute the VBA code to delete Active row.
Step 1: Open any existing Excel workbook
Step 2: Press Alt+F11 – This will open the VBA Editor
Step 3: Insert a code module from then insert menu
Step 4: Copy the above code and paste in the code module which have inserted in the above step
Step 5: select/ activate a cell for testing purpose
Step 6: Now press F5 to execute the code

Now you can observe that the Active Cell row is deleted from worksheet.

Explained VBA Code to Delete Active Row :


‘Starting program and sub procedure to write VBA code to delete Active Cell Row for worksheet
Sub sbVBS_To_Delete_Active_Rows()
‘ActiveCell.Row returns the Active Row number
‘And Delete method will delete the entire row from the worksheet
Rows(ActiveCell.Row).Delete
‘Ending the Excel VBA Macro to delete the active row
End Sub

LIMITED TIME OFFER
By |April 21st, 2014|VBA|6 Comments

About the Author:

PNRao is a passionate business analyst and having close to 10 years of experience in Data Mining, Data Analysis and Application Development. This blog is his passion to learn new skills and share his knowledge to make you expertise in Data Analysis (Excel, VBA, SQL, SAS, Statistical Methods, Market Research Methodologies and Data Analysis Techniques).

6 Comments

  1. February 17, 2015 at 12:40 AM - Reply

    very good
    with regards

  2. Himanshu January 11, 2017 at 9:16 PM - Reply

    Sir is this also correct? Thanks

    Sub sbVBS_To_Delete_Active_Rows()
    Activesheet.Rows.Select
    Selection.Entirerows.delete
    End Sub

    V/S

    Sub sbVBS_To_Delete_Active_Rows()
    Rows(ActiveCell.Row).Delete
    End Sub

  3. genaro July 19, 2017 at 12:51 AM - Reply

    If Range(“M” & i).Value Like “Complete” Then
    Rows(i).Copy Sheets(“Complete”).Range(“A” & Rows.Count).End(xlUp).Offset(1)
    Range(“A:J”).Select
    Selection.Rows(i).Delete
    End If

    does anyone know what can i do with this code. im trying to delete just some columns from the row but i get a error message

    • PNRao July 19, 2017 at 8:59 PM - Reply
      Sub DeleteRowsBasedOnCondition()
      lastRow = 10
      'Always delete from last row to first
      For i = lastRow To 1 Step -1
      If Range("M" & i).Value Like "Complete" Then
      Rows(i).Copy Sheets("Complete").Range("A" & Rows.Count).End(xlUp).Offset(1)
      Rows(i).EntireRow.Delete
      End If
      Next
      End Sub
      

      Thanks!

      • genaro July 19, 2017 at 11:28 PM - Reply

        the code that i have works but what i want to do is delete part of the row from A to J. i want to do this because when i delete the row the formulas that i have in cells K to M gets delete and i need to drag my formula down every time the whole row is delete that is why i want to know if there is a way to just delete cells A to J. right now i want to copy the whole row to another sheet which it does but i just dont want to delete part of the row where the formulas are.

        This is my code

        Dim UsdRws As Long
        Dim i As Long

        Application.ScreenUpdating = False

        UsdRws = Range(“A1”).CurrentRegion.Rows.Count

        For i = UsdRws To 2 Step -1

        If Range(“M” & i).Value Like “Complete” Then
        Rows(i).Copy Sheets(“Complete”).Range(“A” & Rows.Count).End(xlUp).Offset(1)
        Rows(i).Delete
        End If

        Next i

        Application.ScreenUpdating = True

        Thanks you

Leave A Comment


Related pages


formula filter exceloffset vlookupvba absolute valuehyperlinks in excelexcel color cellsexcell concatenatecomplex macros in excelhow to hide rows in exceldownloadable gantt chartvlookup samplesvba code open fileexcel vba redimfind duplicate values in excel 2010unprotect a worksheetcombobox excelcount if formula in excelto unprotect excel sheetddl dclexcel macro dimdaily task sheet template excelworkbooks.open vbamacro for beginnersfree excel calendar 20143 axis chart excel 2010excel vba tabexcel vba adodbfileexists vbscriptredim preserve array vbamsdasql providerexcel vba documentationvba to printvba declarationsexcel dashboard tutorialvisual basic comboboxproject management timeline excel templateexcel vba protectddl comandsvendor management excel templatevba msgbox exampleinterview worksheetuserform unload vbahow to apply filters in exceldelete rows exceldynamic chart title excel 2010ddl and dml commands in sql servervba yes no boxpassword lock excelaccess vba open excel workbookhow to start macro in excelvba tutoriavba open txt filecombine data from multiple sheets in excelworksheets vba excelpivot table macrocreating a dashboard in excel 2007vba collection objectcsv converter to excelhow to put things in alphabetical order in excelvba progress bar exampleword vba tutorialexcel reverse vlookupcosting model excelword vba formmerging excelvba statementsvba copy worksheet to new workbookvariable vbaexcel 2003 gantt chart templatevba excel file openvba chart typeslistbox codesave as xlsunprotect password protected excel sheetexcel example formulasexcel enable developer tabddl operations in sql serverexcel vba set background color