Option Explicit

Sub CopyFormulas()

       Dim cc As Range, t As String
       Application.ScreenUpdating = False

       With CreateObject("scripting.dictionary"): .comparemode = 1
           For Each cc In Sheets("Сортаменты").UsedRange.Columns(1).Cells
               t = cc.Value
               If Len(t) Then .Item(t) = cc.Row
           Next

           For Each cc In Sheets("Расчет ").UsedRange.Columns(1).Cells
               t = cc.Value
               If Len(t) Then
                   If .exists(t) Then Sheets("Сортаменты").Rows(.Item(t)).Cells(1).Resize(1, 25).Copy cc
               End If
           Next

       End With
       Application.ScreenUpdating = True
End Sub