VB Question

Sub mnm()
Dim lst As Long
Dim my, c As Range
lst = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Set my = ActiveSheet.Range("B2:B" & lst)
    For Each c In my
        If c.Value = "break" Then c.RowHeight = 2.5
    Next c
End Sub

Sub test()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    If Range("B" & i).Value = "break" Then Rows(i).RowHeight = 2.5
Next i
End Sub

Sub test()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    If Range("B" & i).Value = "break" Then
        Rows(i).RowHeight = 2.5
    ElseIf Range("B" & i).Value = "header" Then
        Sheets("Sheet2").Range("A1:E1").Copy Destination:=Range("A1")
    End If
Next i
End Sub

Sub test()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    If Range("B" & i).Value = "break" Then
        Rows(i).RowHeight = 2.5
    ElseIf Range("B" & i).Value = "header" Then
        Sheets("Sheet2").Range("A1:E1").Copy Destination:=Range("A" & i)
    End If
Next i
End Sub