Deleting blank row from top to bottom (excel 2007)

I would need a Code that would do the following after all codes has been processed.

I have info on Row:
A5 to M5
A6 to M6
This goes on until row 30A to 30M
I have a vb code that transfer data to the next sheet if a selection is made but it delete the row but now you have an empty row between my selection. My data is between row5 to row 30. Is there a vb code that would eliminate all blank rows to bring up my data as if I was doing a sort every time a code is ran in the sheet?
Ex:

A5 to M5 is populated
A6 to M6 is populated
A7 to M6 Nothing
A8 to M8 is populated

Everytime a code is ran then sort column A with the expanded seletion from A5 to A30.

Help please…

Would need a sort code from Row 5 to Row 30

I have this in another sheet but only delele bring the bottom row up, this doesn't help me with the rest of the info on the other rows bellow

Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).ClearContents
With Target.Offset(1, -5).Resize(, 6)
Target.Offset(0, -5).Resize(, 6).Value = .Value: .ClearContents

GOT IT :D

Every time a code is ran :

'This clears the content in the selected row from A to M
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).ClearContents
    Rows("5:30").Select
    ActiveWorkbook.Worksheets("Pre-Requisition").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Pre-Requisition").Sort.SortFields.Add Key:=Range( _
        "A5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Pre-Requisition").Sort
        .SetRange Range("A5:AK30")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Application.EnableEvents = True
End If
End If
End If
End If
End Sub