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