Increase row heights base upon number in another cell

[jono7gold]

Hi, hope someone can help??

I want to change the row height base upon a number value in another cell, I would like this to apply across 5 rows.
So if A1 = 5 then row G will be a height of 5, if no cell value is entered in A1 then the height would be 0. Can this also be applied to B1 changing row H, C1 to row I, D1 to row J & E1 to row K.

Thank you.

Jon

 

[jono7gold]

I have a solution now of not using a formula.

Thanks for your help!

 

[jono7gold]

Actually if you could find a solution of using a formula that would be great, the exact formulas are:
=A1=C1/2
=A2=A1
=A3=C3
=A4=C4/2
=A5=A4

Thanks again.

 

[Peter_SSs]

Thanks for the formulas. Replace the previous worksheet change code with this one.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  
  If Not Intersect(Target, Range("C1,C3,C4")) Is Nothing Then
    For Each c In Range("A1:A5")
      If Len(c.Value) > 0 Then
        If IsNumeric(c.Value) Then
          On Error Resume Next
          Rows(c.Row + 9).RowHeight = c.Value
          On Error GoTo 0
        End If
      End If
    Next c
  End If
End Sub