On selection range of data value show in another row in a range

Hi,

I am working on a project in which I face a problem that I want to share. Hope someone understands and helps me to solve the problem.

If I select any cell of F9 to I1200 then the target row data from P to U will be shown in P3 to U3. I have the below code but not show the expected result.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 If Target.Count > 1 Then Exit Sub
 If Target.Column >= 6 And Target.Column < 10 Then
 If Target = vbNullString Then
 Exit Sub
 Else
 Sheets("Bill Info").[D15] = Cells(Target.Row, 9)
 Sheets("Bill Info").[A10:A15] = ActiveCell.Row
 Sheets("Bill").[P3:U3] = Application.Max(Range("P" & Target.Row).Resize(, 6))
 End If
 End If
 
End Sub

Thanks in Advance

Thanks for your response,

But no data is displayed in P3 to U3 on selection.

Do I miss something?

Thanks Again,

Thanks

I found the problem and solve it by the below code.

Sheets("Bill").[P3].Resize(, 6).Value = Cells(Target.Row, 16).Resize(, 6).Value

and It gives me the expected result.

Thanks and best regards.