No correct output

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