relocate column with VB assigned

[kenboy]

Hello everyone. Not sure if the title is a clear understanding of what I'm looking for so, here's the detail:

Design that when #1 or #3 is entered in column AD all data is moved to other tabs.

The question is.... how can I relocate the VB in column AD to any other column say AE or AF?

Here's the code and workbook attached if easier.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(30)) Is Nothing Then
    If Target.Value = 1 Then
        Rows(Target.Row).Copy Sheets("faOpenClaims").Range("A" & Rows.Count).End(3)(2)
        Sheets("faOpenClaims").Range("B" & Rows.Count).End(3)(2).Offset(-1, 40) = Date + Time
        Rows(Target.Row).Delete
    ElseIf Target.Value = 3 Then
        Rows(Target.Row).Copy Sheets("faClosedClaims").Range("A" & Rows.Count).End(3)(2)
        Sheets("faClaims2").Range("B" & Rows.Count).End(3)(2).Offset(-1, 40) = Date + Time
        Rows(Target.Row).Delete
    End If
End If
Application.EnableEvents = True
End Sub

Thank you in advance.