Transfer the data to the table using VBA Excel?

Sub movecardata()
Dim dateweek As String, CarType As String, no_of_fixes As String, strformula As String
Dim endcount, columncount, daterow As Integer
Dim placed, datechange As Boolean
 
Sheets(2).Select
Range("a1").FormulaR1C1 = "Weekly Garage Fixes" 'add our header
 
 
' Find out how many pre-existing car types we have
Sheets(2).Select
If Range("B1") = "" Then
    columncount = 1
Else
    columncount = Range(Range("A1"), Selection.End(xlDown)).Count
End If
'Find out how many pre-existing dates we have
daterow = 1
Sheets(2).Select
If Range("A2") = "" Then
    daterow = 2
Else
    daterow = Range(Range("A1"), Selection.End(xlDown)).Count
End If
 
Sheets(1).Select ' back to data
Range("B1").Select
endcount = Range(Range("B1"), Selection.End(xlDown)).Count ' how much data are we reading
 
For i = 1 To endcount
    placed = False
    If Range("A" & i).Value <> "" Then ' if we have a new date
        dateweek = Range("A" & i).Value ' store it
        daterow = daterow + 1 'drop down a row
        Sheets(2).Select ' go to report tab
        Range("A" & daterow).Value = dateweek ' add our value
        Sheets(1).Select ' back to data tab
    End If
    
    CarType = Range("B" & i).Value ' get our car type
    no_of_fixes = Range("C" & i).Value ' get our number of fixes
    
    Sheets(2).Select
    
    For j = 1 To columncount
        If CarType = Cells(1, j).Value Then ' if the cartype we are looking at matches the header
            Sheets(2).Select ' go to report tab
            Cells(daterow, j).Value = no_of_fixes ' paste the number of fixes
            Sheets(1).Select ' go back to data tab
            placed = True ' change our flag
        End If
    Next j
    
    If placed = False Then ' if we've looked at all our existing columns and didn't find a match
        Sheets(2).Select ' go to report tab
        Cells(1, columncount + 1).Value = CarType ' add our new column heading
        Cells(daterow, columncount + 1).Value = no_of_fixes ' drop our number of fixes
        columncount = columncount + 1 ' get ready for the next new type
        Sheets(1).Select ' go back to data
    End If
    
    Next i
 
    'Add our total column on report
    Sheets(2).Select
    Cells(1, columncount + 1).Value = "Totals"
    
    Cells(3, columncount + 1).FormulaR1C1 = "=SUM(RC[-" & columncount - 1 & "]:RC[-1])"
    Cells(3, columncount + 1).Select
    Selection.AutoFill Destination:=Range(Chr(65 + columncount) & "3:" & Chr(65 + columncount) & daterow), Type:=xlFillDefault
    
 
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73: