ActiveSheet.ListObjects("Таблица1").Unlist

Rows (nt.Row, nd.row).Activate

Sub check_client()
    Dim nd As Range, nt As Range, g As String, f As String, h As String, k As String
    Dim flag As Boolean

    Application.ScreenUpdating = False

    For Each nd In Sheets(2).UsedRange.Columns(3).Cells
        If Len(nd) Then
            g = nd.Value: f = nd.Offset(, 1).Value: flag = False
            h = nd.Offset(, 3).Value: flag = False
            For Each nt In Sheets(1).UsedRange.Columns(1).Cells
               If nt.Value = g Then
                    Do Until (Len(nt) And nt.Value <> g) Or Len(nt) + Len(nt.Offset(, 1)) = 0
                        If nt.Offset(, 1) = f Then
                            flag = True
                            Exit Do
                        End If
                        Set nt = nt.Offset(1)
                    Loop
                    If flag Then
                        Exit For
                    Else
                        Sheets(1).Rows(nt.Row).Insert
                        nt.Offset(-1, 7).Value = f
                     nt.Offset(-1, 9).Value = Round(h, 0)
                    End If
                End If
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A1", "A2", "A3", "A4"
    If ActiveSheet.Paste Then
      On Error GoTo 10
             With Selection
            .ShapeRange.LockAspectRatio = msoFalse
            .Width = Target.Width
            .Height = Target.Height
        End With
    End If
    End Select
10: End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A3", "B3", "C3", "D3"
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        With Selection
            .ShapeRange.LockAspectRatio = msoFalse
            .Width = Target.Width
            .Height = Target.Height
        End With
    End If
End Select
End Sub