Fit rows

[PIsabel]

Hello.
I have this code to insert blank lines.
How can I indicate the size of the line when it is inserted?

Sub blankrow
    'insere linhas brancas
    Dim Col As Variant
    Dim BlankRows As Long
    Dim LastRow As Long
    Dim R As Long
    Dim StartRow As Long

    Col = "x"
    StartRow = 1
    BlankRows = 1

    LastRow = Cells(Rows.Count, Col).End(xlUp).Row

    Application.ScreenUpdating = False

    With ActiveSheet
        For R = LastRow To StartRow + 1 Step -1
            If .Cells(R, Col) = "Diferente" Then
                .Cells(R, Col).EntireRow.Insert Shift:=xlDown
            End If
        Next R
    End With

    Application.ScreenUpdating = True

End sub

 

[Joe4]

What do you mean by "the size of the line"?
One line would be one row.

 

[kanadaaa]

Try this (you original code has quite some redundancies):

Sub InsertRows()
    Dim lr As Long, i As Long
    lr = Cells(Rows.Count, "X").End(xlUp).Row
    
    Application.ScreenUpdating = False
    For i = lr To 1 Step -1
        If Cells(i, "X").Value = "Diferente" Then
            Cells(i, "X").EntireRow.Insert Shift:=xlDown
            Cells(i, "X").EntireRow.RowHeight = 40 'Change this to any height
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Joe4]

Ah, so it appears that maybe you were looking for how to set the height of the row.
Size can mean a number of different things, but that appears to make sense.

 

[PIsabel]

Thank you, it worked very well.
Forgive me for the mistake, it was not size but height

 

[Joe4]

Thank you, it worked very well.
Forgive me for the mistake, it was not size but height

No worries.
I am glad that kanadaaa figured out what you meant and was able to answer it for you.