Sub test
Set LMT=ThisWorkbook.Worksheets("LMT")
Set Resum=ThisWorkbook.Worksheets("resum")
MP=Resum.Range("a1").Value
i=0
While MP <> ""
If LMT.Range("A48").Offset(i*42,0).Value="test1" Then
For j=0 to 35
LMT.Range("BE49").Offset(i*42+j,0).Formula="=If(A12.[B]Offset(i*42,j)[/B];A14.[B]Offset(i*42,j)[/B]*[B]$A18$.Offset(i*42,j)[/B],0)"
Next j
End If
i=i+1
MP=Resum.Range("a1").Offset(i,0).Value
Wend
End sub