Debug the Code

test layout111.xlsPlease debug I dont want it to write anything on sheet 1 and i also want to perform the operation for Fix type(Column A) only

Sub Macro1()
Dim shp As Shape
Dim a As Range, d As Range, cell As Range
Dim i As Long: i = 0
'Frist I am extracting the Values From Shapes
For Each shp In Sheets("Cab Temp").Shapes
    i = i + 1
    Range("G" & i).Value = shp.AlternativeText
Next
'Secondly Removing the unwated value that is "Rounded Rectangle: "
Range("G7").Select
    ActiveCell.FormulaR1C1 = "Rounded Rectangle: 7151.035 (Blanking plate)"
    Cells.Replace What:="Rounded Rectangle: ", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'Thirdly Counting the repeated values
Set a = Range("G7", Range("G" & Rows.Count).End(xlUp))
'Navigating Between the sheets to compare
Sheets(1).Select
'Here i M trying to Compare and write the count in colounm d
Set d = Range("C3", Range("C" & Rows.Count).End(xlUp))
For Each cell In d
cell.Offset(0, 1).Formula = "=CountIf(" & a.Address & ", " & cell.Address & ")"
Next cell
'Here i m clearing the data from sheet 1 which i extracted
Sheets(2).Select
Range("G7:G36").Select
Selection.ClearContents
End Sub
'i want to compare data  and have count of only Fix (in coloumn 1)