Option Explicit
Const LastDataColumn =  10    ' последняя колонка с данными
Const KeyColumn =  1          ' по этой колонке определять
Const FirstDataRow =  1       ' первая строка с данными

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyRow As Long
    If Target.Column =  1  Then
        If Cells(Target.Row,  2 ).Value = "" And Not Target.Row = FirstDataRow Then
            KeyRow = GetKeyRow(Cells(Target.Row,  1 ).Value, Target)
            If Not KeyRow =  0  Then
                Application.EnableEvents = False
                Range(Cells(KeyRow,  1 ), Cells(KeyRow, LastDataColumn)).Copy Destination:=Target
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

Function GetKeyRow(TheKey As String, BeforeCell As Range) As Long
Dim rez As Range
    
    Set rez = Range(Cells( 1 ,  1 ), BeforeCell.Offset(- 1 )).Find(what:=TheKey, lookat:=xlWhole)
    
    If Not rez Is Nothing Then
        GetKeyRow = rez.Row
    Else
        GetKeyRow =  0 
    End If
    
End Function