In my worksheet i have 2 empty rows after each entry. I tried to record a macro to delete these empty rows but i can only delete 2 at a time. here is the macro. Can you show me how to change it to apply this to the full sheet and delete all the other empty rows? thanks!
Sub DeleteTwoRows()
'
' DeleteTwoRows Macro
'
'
ActiveCell.Offset(-3, -5).Range("1:1,2:2").Select
ActiveCell.Offset(-2, -5).Range("A1").Activate
Selection.ClearContents
Selection.Delete Shift:=xlUp
End Sub