Pass textbox value to two ranges

Hello. I'm a new member here and currently working on a system for school project. It is also my first time working with Excel VBA. Please excuse me if my code is not great.

Worksheets:
Sheet1 (2021)
Sheet2 (2022)
Sheet3 (Receipt)
Sheet4 (Database)

The problem I encountered:
1. For the COUNT COMMAND BUTTON, the code for counting the customers when the date (from sheet1 and sheet2) is typed in DateTextBox (with format mm/dd/yyyy) and displayed in CountTextBox is running smoothly. However, I want the value displayed in CountTextBox to be passed on sheet4. I add some code and successfully did it for the year 2021 but when I copied this code for year 2022, the value for year 2022 overlapped with the value for year 2021.

Below is my attached file. Any assistance you can provide would be greatly appreciated.