Calling a macro (on another sheet) using an image as a button

I have a workbook with two worksheets. I have a macro on one of the worksheets which I want to call using a image as button which resides on the second sheet. When I wrote the macro there was just one sheet, I later added another sheet and put the image on it and assigned the macro to the image. However, when I click the image the macro runs on the sheet which contains the image. How can I make the macro run on the sheet that I want it to run??
Thanks.

Here is the code, it basically formats the sheet in a particular way - but I want to be able to call it from another sheet in the same workbook once the user pastes data into the macro workbook and clicks on the image (on the other sheet)

I think I will need some kind of a code to specify which sheet the macro should target - but I dont know that that is -

Can someone help??

Thanks.

Sub formatSheet()
'Find and replace + and = sign with blanks
    Cells.Replace What:="+", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="=", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
'Delete blank rows then 5 rows after every time ABC appears
       Application.ScreenUpdating = False

                Dim rCount As Long, i As Long
    rCount = ActiveSheet.UsedRange.Rows.Count
    For i = rCount To 1 Step -1
        If Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 2))) < 1 Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next
    Dim Lastrow As Long
  
    Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
    
    
    
        For i = Lastrow To 1 Step -1
            With Cells(i, "B")
                If UCase(.Value) = "ABC" Then
                    .Resize(5, 1).EntireRow.Delete
                End If
            End With
        Next i

    Application.ScreenUpdating = True
    
'Delete empty columns

    Columns("A:A").Delete Shift:=xlToLeft
    Columns("C:D").Delete Shift:=xlToLeft
    Columns("D:E").Delete Shift:=xlToLeft
    Columns("I:I").Delete Shift:=xlToLeft
    Columns("J:J").Delete Shift:=xlToLeft
    Columns("L:M").Delete Shift:=xlToLeft
    Columns("M:N").Delete Shift:=xlToLeft
    Columns("N:N").Delete Shift:=xlToLeft
    Columns("O:O").Delete Shift:=xlToLeft
    Columns("P:P").Delete Shift:=xlToLeft
    Columns("Q:Q").Delete Shift:=xlToLeft
    Columns("S:S").Delete Shift:=xlToLeft
    Columns("T:T").Delete Shift:=xlToLeft
    Columns("U:U").Delete Shift:=xlToLeft
    Columns("V:V").Delete Shift:=xlToLeft
    Columns("W:X").Delete Shift:=xlToLeft
    Columns("X:X").Delete Shift:=xlToLeft

'Insert 1 column for PO

    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight

'Move PO number

Dim Cell As Range
Dim Num As String

Set Cell = Range("B1")
Do Until Cell = "END OF REPORT"
Select Case Left(Cell.Value, 3)
Case "410"
Num = Cell.Value
Cell.Value = ""
Case Is <> ""
Cell.Offset(0, -1).Value = Num
End Select
If Cell.Row = Rows.Count Then
   MsgBox "Last Row on Sheet Reached"
   End
End If
Set Cell = Cell.Offset(1, 0)
Loop

'Write receiving branch number

With Columns(1)
        .Offset(, 4).Cut
        .Insert Shift:=xlToRight
    End With
 
    Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
 
    With Range("A1:A" & Lastrow)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With

'Write buyer number

With Columns(3)
        .Offset(, 5).Cut
        .Insert Shift:=xlToRight
    End With
 
    Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
 
    With Range("C1:C" & Lastrow)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With

'Separate the word BLK or PIK

    Columns("D:D").Insert Shift:=xlToRight
    Columns("C:C").TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("C1").Copy
    Range("D1").Select
    ActiveSheet.Paste
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft

'Write column headings
    Range("A1:X1").Value = _
    Array("FrBr", "PO", "PIC/BLK", "BrSt", "DelDate", "OrderQty", "UOM", "RecBr", _
    "Material", "MMPalQty", "WMPalQty", "MedlMIOH", "RecBrMIOH", "OnPO", "OnSTO", _
    "RecBrPIOH", "RecBrFC", "FixInd", "SS", "RecBr3MAvg", "RecBrStock", "SupBrStock", "RecBrBlockedStock", "RecBrDepReq")
'Delete all blank rows
    
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("D2:D" & Lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


    Dim iLastRow As Integer
    iLastRow = Range("E" & Rows.Count).End(xlUp).Row
    Columns("E:F").Insert Shift:=xlToRight
    Range("E2").FormulaR1C1 = "=(""0""&RC[-1])"
    Range("E2").AutoFill Destination:=Range("E2:E" & iLastRow)
    Range("F2").FormulaR1C1 = "=RIGHT(RC[-1],2)"
    Range("F2").AutoFill Destination:=Range("F2:F" & iLastRow)
    Range("F2:F" & iLastRow).Copy
    Range("F2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("F1").FormulaR1C1 = "BrSt"
    Columns("D:E").EntireColumn.Delete
End Sub