Hello,
I copy a range from sheet1, workbook1 to workbook2, sheet2, after the last row, that means the range from workbook2, sheet2, is each time in another place. I want to delete empty rows from the range that reside in workbook2, sheet2. How should I do that?
Thanx very much
Configuration: Windows XP Firefox 3.0.1
Hello,
'To delete empty rows in active worksheet
Sub DeleteEmptyRow()
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For x = LastRow To 1 Step -1
If Application.CountA(Rows(x)) = 0 Then Rows(x).Delete
Next x
End Sub
Best regards "Pour trouver une solution à ses problèmes, il faut s'en donner la peine." |