If column A in a table is blank then row height 9.0

[gheyman]

I have code (that someone was kind enough to help with) that inserts a blank row in my table based on conditions

Sheet4.Select

 Dim col As String
    Dim i As Long
    Dim startRow As Long
    Dim lastRow As Long
    
    col = "F"
    startRow = 4
    lastRow = Cells(Rows.Count, col).End(xlUp).Row
    
    With ActiveSheet
        For i = lastRow To startRow Step -1
            If Range("F" & i).Value = "1" Then
                .Cells(i, col).EntireRow.Insert shift:=xlDown
            End If
        Next i
    End With

What I would like to do is to go back through the table and where there is a blank row change its row height to 9.0

Thanks for the help!

 

[mumps]

Try:

Sub ChangeRowHeight()
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.RowHeight = 9
End Sub

 

[gheyman]

Thanks.

I was trying to figure it out and I tried:

Sub AddRows ()

Sheet4.Select

    Dim col As String
    Dim col2 As String
    Dim i As Long
    Dim startRow As Long
    Dim lastRow As Long
    
    col = "F"
    col2 = "A"
    startRow = 4

        lastRow = Cells(Rows.Count, col).End(xlUp).Row
    
    With ActiveSheet
         
        For i = lastRow To startRow Step -1
        
            If Range("F" & i).Value = "1" Then
                .Cells(i, col).EntireRow.Insert shift:=xlDown
            End If
            
            If Range("A" & i).Value = "" Then
                .Cells(i, col).EntireRow.RowHeight = 9
            End If
            
        Next i
        
    End With

Here's what I did. I am actually learning a lot form helpful people on this site!

I added:
If Range("A" & i).Value = "" Then
.Cells(i, col).EntireRow.RowHeight = 9
End If

And it seems to work. I am having another issue, but that's a separate post which I will submit now.

But I really appreciate the help Mumps

 

[mumps]

You are very welcome.