¿Cómo hago para que al ingresar un valor en una celda salte a otra dentro de este código?

Elsa vuelvo a intentar tengo el código que me envío finaliza dejándome en la columna "X" lo quiero y no logro es qe al ingresar un valor en "X" se desplace nuevamente hadta hasta "P".
Este es el código
Private Sub Worksheet_Change(ByVal Target As Range)
Dim finx As Integer
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
finx = Target.Row - 1
Application.EnableEvents = False
Range("B" & finx & ":L" & finx).Select
Selection.AutoFill Destination:=Range("B" & finx & ":L" & finx + 1), Type:=xlFillDefault
Range("Q" & finx & ":W" & finx).Select
Selection.AutoFill Destination:=Range("Q" & finx & ":W" & finx + 1), Type:=xlFillDefault
Range("Y" & finx & ":AX" & finx).Select
Selection.AutoFill Destination:=Range("Y" & finx & ":AX" & finx + 1), Type:=xlFillDefault
Range("AZ" & finx & ":BD" & finx).Select
Selection.AutoFill Destination:=Range("AZ" & finx & ":BD" & finx + 1), Type:=xlFillDefault
Range("O" & finx + 1) = Range("O" & finx) + 1
Target.Offset(0, 23).Select
Application.EnableEvents = True
End Sub