Here’s a step-by-step guide to delete blank rows using VBA:

Step 1: Open Excel and Enable the Developer Tab

1. Open Excel and load your workbook.
2. Enable the Developer tab if it’s not visible:
   • Go to File > Options.
   • In the Excel Options dialog box, click Customize Ribbon.
   • On the right side, check Developer and press OK.

Step 2: Open the VBA Editor

1. Click on the Developer tab.
2. Click Visual Basic or press Alt + F11 to open the VBA editor.

Step 3: Insert a New Module

1. In the VBA editor, click on Insert in the top menu.
2. Select Module to add a new module.

Step 4: Write the VBA Code to Delete Blank Rows

Copy and paste the following VBA code into the module:

Sub DeleteBlankRows()
    Dim i As Long
    Dim lastRow As Long

    ' Find the last row with data in column A
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Loop from the last row to the first row
    For i = lastRow To 1 Step -1
        ' Check if the entire row is blank
        If WorksheetFunction.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub

Code Explanation:

• lastRow = Cells(Rows.Count, 1).End(xlUp).Row: This line finds the last row with data in column A.
• For i = lastRow To 1 Step -1: Loops through each row from the last row to the first row.
• If WorksheetFunction.CountA(Rows(i)) = 0: Checks if the entire row is empty (no values).
• Rows(i).Delete: Deletes the row if it is blank.

Step 5: Run the Macro

1. After pasting the code, close the VBA editor or minimize it.
2. Go back to the Excel workbook.
3. Press Alt + F8 to open the Macro dialog.
4. Select DeleteBlankRows from the list and click Run.

Step 6: Verify the Results

• The macro will go through each row in your sheet, starting from the last row, and delete any rows that are completely blank.

Notes:

• The code deletes rows that are entirely blank. If a row has data in even one cell, it won’t be deleted.
• If you want to target a specific column for blank rows instead of the entire row, you can modify the If condition to check only that column, like this

If Cells(i, 1).Value = "" Then
    Rows(i).Delete
End If

• This will delete rows where column A is empty.

Step 1: Open the VBA Editor

1. Open your Excel workbook.
2. Go to the Developer tab and click on Visual Basic (or press Alt + F11).

Step 2: Insert a New Module

1. In the VBA editor, click Insert in the top menu.
2. Select Module to create a new module.

Step 3: Write the VBA Code to Combine Sheets

Here’s a simple VBA code that combines all sheets in your workbook into one:

Sub CombineSheetsWithDifferentColumns()
    Dim ws As Worksheet
    Dim masterSheet As Worksheet
    Dim lastRowMaster As Long
    Dim lastRowSource As Long
    Dim lastColSource As Long
    Dim pasteRow As Long
    
    ' Create or Clear a MasterSheet for combined data
    On Error Resume Next
    Set masterSheet = Sheets("MasterSheet")
    On Error GoTo 0
    
    If masterSheet Is Nothing Then
        Set masterSheet = Worksheets.Add
        masterSheet.Name = "MasterSheet"
    Else
        masterSheet.Cells.Clear
    End If
    
    pasteRow = 1 ' Row to start pasting in the MasterSheet
    
    ' Loop through each worksheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Skip the MasterSheet itself
        If ws.Name <> "MasterSheet" Then
            ' Find the last row and column with data in the source sheet
            lastRowSource = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            lastColSource = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
            
            ' If there is data, copy it
            If lastRowSource > 1 Then
                ' Copy data from the current sheet to the MasterSheet
                ws.Range(ws.Cells(1, 1), ws.Cells(lastRowSource, lastColSource)).Copy
                masterSheet.Cells(pasteRow, 1).PasteSpecial xlPasteAll
                
                ' Move to the next row in MasterSheet
                pasteRow = masterSheet.Cells(masterSheet.Rows.Count, 1).End(xlUp).Row + 1
            End If
        End If
    Next ws
    
    ' Optional: Autofit columns to adjust widths
    masterSheet.Columns.AutoFit
    
    MsgBox "All sheets have been combined into 'MasterSheet'."
End Sub

Step 4: Run the Macro

1. Close the VBA editor and return to Excel.
2. Press Alt + F8 to open the Macro dialog box.
3. Select CombineSheets and click Run.

Step 5: Review the Combined Data

• The macro will create a new sheet named “MasterSheet” where all the data from the other sheets is combined.
• If the “MasterSheet” already exists, it will be cleared and refilled with the new data.