VBA Delete row starting with specific cell

[klturi421]

I am currently trying to format a worksheet and want to delete blank rows starting with cell 'G5'. If I use the current code below it removes even my protected cells that I want to leave intact.

Sub deleteBlankRows()
On Error Resume Next
Columns("G").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Any ideas on how to achieve this? I was thinking of selecting a range from G5 downward, but I never can get the xl to end to work properly for me. Any help would be appreciated.

[stnkynts]

You will probably need to loop through each cell and test for both blank and locked. Something like this:

Sub Delete_Blanks_Untested()
Dim i As Long

For i = Range("G" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("G" & i).Locked = False And Len(Range("G" & i)) = 0 Then
        Range("G" & i).EntireRow.Delete
    End If
Next i

End Sub