No correct output

Hi,
I have sr. no. in column 'b' and I want to transfer it automatically in column 'ag'. I have inserted a code in sheet code but it's giving wrong output. It transfers the value from column 'c' but I want the value from column 'b' in column 'ag'.

The code is:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Row < 7 Then Exit Sub
                Application.EnableEvents = False
                If Target.Row > 1 And Not Range(Cells(Target.Row, "c"), Cells(Target.Row, "f")) Is Nothing Then
    Set rng = Range(Cells(Target.Row, "c"), Cells(Target.Row, "f"))
    With rng
        Cells(Target.Row, 34).Value = .Cells(1) & " " & .Cells(2) & " " & .Cells(3) & " " & .Cells(4)
    
With rng
        Cells(Target.Row, 33).Value = .Value
    End With
    End With
End If

                Application.EnableEvents = True
                
End Sub

Please suggest me a correction.

Thanking you in anticipation.

Sincerely,

Mukesh

Hi Norie,
Sorry, now I have modify the code but getting syntax error. Please check it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Row < 8 Then Exit Sub
                Application.EnableEvents = False
                If Target.Row > 1 And Not Range(Cells(Target.Row, "c"), Cells(Target.Row, "f")) Is Nothing Then
    Set rng = Range(Cells(Target.Row, "c"), Cells(Target.Row, "f"))
    With rng
        Cells(Target.Row, 34).Value = .Cells(1) & " " & .Cells(2) & " " & .Cells(3) & " " & .Cells(4)
    
    'Column AG
    
    If Target.Row > 1 .Range.Cells.Column "b" Is Nothing Then
    Set rng = Range(Cells(Target.Row, "b"))
With rng
        Cells(Target.Row, 33).Value = .Value
    End With
    End If
End With
End If


                Application.EnableEvents = True
                
End Sub

Thank you.

Regards,

Mukesh

Hi Holger,
Sorry, I don't have a problem in this line. I have inserted it in the code and it's working fine. I have a problem in the code to transfer the value of column 'b' to column 'ag'.
I don't want to trouble you friends. I have not completed any vba course. I'm learning it from you and forum friends time to time.So I'm facing the problems. I have learned a lot of things from you to speed up my work quickly using vba. So please don't mind.

Sorry and thank you.

Regards,

Mukesh