Need VBA Help With the following info

[Bob Phillips]

Try this

Sub CopyCells____1111()
Dim rng As Range
Dim lastrow As Long
Dim i As Long

    On Error GoTo sub_exit
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Set rng = Range("H2:AE2" & lastrow)
    lastrow = Cells(Rows.Count, "F").End(xlUp).Row
    
    For i = 1 To lastrow
    
        If Cells(i, "F").Value = "Budget" Then
            
            Cells(i, "H").Copy
            Cells(i, "I").Resize(, 25).PasteSpecial Paste:=xlPasteFormulas
        End If
    Next

sub_exit:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub