VBA copy values to next column with an existing table

[Ulraan]

Hello

I have a workbook name time_card_calulator and time card

i wan to export the total hours to the time card in such a way that it will be adding up data from monday to friday over and over weekly when data is being export depending on day.
but each time it adds up out of the table i created . Help please.

Private Sub Export_Data()
'Macro to copy random results to next blank period
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Time_card_calculator")
Set pasteSheet = Worksheets("Time_card")

    copySheet.Range("D2:D30").Copy
        If pasteSheet.Cells(2).End(xlToLeft) = "" Then
            pasteSheet.Cells(2).End(xlToLeft).Offset(0, 3).PasteSpecial xlPasteValues
        Else
            pasteSheet.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
        End If

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub