maxGomes,

Veja se esta macro ajuda.

Sub Altura_Linha()
    Rows("9").RowHeight = 21 ' Linha 9 ,altura da linha 21 
   'faça nas linha que vc deseja alterar a altura.
    
End Sub

Abraço.

Boa noite!!!

Veja também outro exemplo...
ajusta automaticamente as colunas.

Auto:.Zack Barresse

Option Explicit 
 
Sub AutoFitAll() 
     
    Application.ScreenUpdating = False 
    Dim wkSt As String 
    Dim wkBk As Worksheet 
    wkSt = ActiveSheet.Name 
    For Each wkBk In ActiveWorkbook.Worksheets 
        On Error Resume Next 
        wkBk.Activate 
        Cells.EntireColumn.AutoFit 
    Next wkBk 
    Sheets(wkSt).Select 
    Application.ScreenUpdating = True 
     
End Sub 

Boa noite! Obrigado Santos e Alexandrevba!
As duas opcoes me servem...
tentando aqui tambem consegui fazer com o
rows.autofit
é simples mas também me serviu...
Valeu!!

Boa noite!!!

Obrigado pelo retorno, caso precisar estamos ai...

At ++++