2 VBA macro's in correlation

[raffi123]

hello everyone, i have 2 sheets i been working on, in my workbook which i have uploaded,

one sheet is called "daily use" and the other sheet "daily use history" each of which has the same VBA code listed under, ( both 2 sheets have the same code )

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ARow As Integer
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
ARow = ActiveCell.Row - 1
With Target
 If .Column = 1 Or .Column = 3 Then
        ThisWorkbook.Sheets("daily use").Range(.Address).Value = .Value
        ThisWorkbook.Sheets("daily use history").Range(.Address).Value = .Value

    End If
End With
ErrHandler:
    Application.EnableEvents = True
End Sub

i was thinking, is it possible, to copy or rather cut the info in .column =3 from daily use to .column = 2 to daily use history ? ( without moving column 3 in daily use )