Soru Girilen veriyi başka bir hücreye otomatik taşıma

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If WorksheetFunction.CountIf([1:1], Left(Target, 2) & " " & Val(Mid(Target, 3, 8))) = 0 Then Exit Sub
baslik = Left(Target, 2) & " " & Val(Mid(Target, 3, 8))
sut = WorksheetFunction.Match(baslik, [1:1], 0)
sat = Cells(Rows.Count, sut).End(3).Row + 1
Cells(sat, sut) = Target
Target = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set bul1 = [2:2].Find(Left(Target, 12), Lookat:=xlWhole)
If Not bul1 Is Nothing Then
        sut = bul1.Column: GoTo 10
    Else: Set bul2 = [2:2].Find(Left(Target, 11), Lookat:=xlWhole)
        If Not bul2 Is Nothing Then
            sut = bul2.Column: GoTo 10
        Else: Set bul3 = [2:2].Find(Left(Target, 10), Lookat:=xlWhole)
            If Not bul3 Is Nothing Then
                sut = bul3.Column: GoTo 10
            Else: MsgBox "Okutulan BARKOD sayfada BULUNAMADI !", vbCritical
                Exit Sub: End If: End If: End If
10: Cells(Cells(Rows.Count, sut).End(3).Row + 1, sut) = Target
Target = "": Target.Activate
End Sub