Sub GSA()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim j As Integer

    Set sourceRange = Range("W79:AT79")
    Set targetRange = Range("W154:AT154")

    For j = 1 To sourceRange.Columns.Count
        If sourceRange.Cells(1, j).Value < 0 Then
            PerformGoalSeekSub sourceRange.Cells(1, j), targetRange.Cells(1, j)
        End If
    Next j
End Sub

Sub PerformGoalSeekSub(SourceCell As Range, TargetCell As Range)
     SourceCell.GoalSeek Goal:=0, changingCell:=TargetCell
End Sub

Sub GSA()

    Dim sourceRange As Range
    Dim targetRange As Range

    Set sourceRange = Range("W79:AT79")
    Set targetRange = Range("W154:AT154")

    For j = 1 To sourceRange.Columns.Count
      If sourceRange.Cells(1, j).Value < 0 Then
    PerformGoalSeekSub sourceRange.Cells(1, j), targetRange.Cells(1, j)
    End If
    Next j
End Sub

Sub PerformGoalSeekSub(SourceCell As Range,TargetCell As Range)
        TargetCell.GoalSeek Goal:=0, ChangingCell:=SourceCell
End Sub

'The old file path as a string (the text to be replaced)
oldFilePath = "String of\File Path\To Be Replaced\Excel File.xlsx"
 
'The new file path as a string (the text to replace with)
newFilePath = "String of\New File Path\Excel File 2.xlsx"

Sub EditPowerPointLinks()

Dim oldFilePath As String
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape

'The old file path as a string (the text to be replaced)
oldFilePath = "String of\File Path\To Be Replaced\Excel File.xlsx"

'The new file path as a string (the text to replace with)
newFilePath = "String of\New File Path\Excel File 2.xlsx"

'Set the variable to the PowerPoint Presentation
Set pptPresentation = ActivePresentation

'Loop through each slide in the presentation
For Each pptSlide In pptPresentation.Slides

    'Loop through each shape in each slide
    For Each pptShape In pptSlide.Shapes
   
        'Find out if the shape is a linked object or a linked picture
        If pptShape.Type = msoLinkedPicture Or pptShape.Type _ 
        = msoLinkedOLEObject Or pptShape.Type = msoLinkedChart Then

            'Use Replace to change the oldFilePath to the newFilePath
            pptShape.LinkFormat.SourceFullName = Replace(LCase _
            (pptShape.LinkFormat.SourceFullName), LCase(oldFilePath), newFilePath)
            
        End If
    Next
Next

'Update the links
pptPresentation.UpdateLinks


End Sub

Sub Макрос1()
'
' Макрос1 Макрос
'

'
Dim Credit As Range, CF As Range
    Set Credit = Range("C18:AA18")
    Set CF = Range("C30:AA30")
    
    For Each cell In Credit
    CF.GoalSeek Goal:=0, ChangingCell:=Credit.
    Next
End Sub