VBA - Deleting empty rows

[luporiman]

Hello everyone. This is probably a common question, but I am using a VBA macro to convert a .XLS to a .CSV and I need to delete all of the empty rows prior to conversion.

I can find my first empty row with teh macro, but I don't know the syntax to delete from the current row to the end of the document when the first empty row will not always be in the same place.

I greatly appreciate any assistance!

 

[Joe4]

Can you explain the layout of your data a little bit?
(Are their gaps in your data?)
Maybe describe a simple scenario and which rows you want deleted.

 

[ge0rge]

I do this with a command button on my worksheet. You could easily alter it to run before the conversion macro.

Private Sub CommandButton1_Click()
Dim x As Long
With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row _
        To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next
End With
End Sub